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ARATIONS 

ENQ = Enqueuve system service 

RSIONS 

O_SYS = Convert to system owned Lock 
O_PRC = Convert to process owned a 
“LOCK = New Lock request (not conversion) 
ze SEN 


ongt ing for 
H_SEARCH = Hash resource and search hash table 


SGRANT_LOCK = Grant a lock request 


CK_KAST = Kernel AST routine 
KSQUEUEC 
QUEVEWAIT - Insert a lock on wait queue 
$QUE s 
$COM 
S$GRANTCVTS = Grant conversions 
atimareise - erent yer ters 


VT_= Insert a lock on conversion queue 


UE_BLOCKAST = Queue blocking AS 
P_GGMODE = Compute group grant mode 


LL_RE a 
SERTEND_1DTBL - Extend lock id. table 
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TITLE §YSENQDEQ - ENQUEUE/DEQUEUE SYSTEM SERVICES 


PAAARARARARARAAAAALALA ALLL ELSES ELE LE SELES EEE ERE ETRE ES EEE EES CESS EET EEC aoe 


VERIFYLOCKID to remove race condition that gave incorrect 
SS$_IVLOCKID errors. 


v03-026 $RB0139 Steve Beckhardt 4-Jul-1984 
Added new entry point, CEKSCHECK STALL to allow CETLKI 
(and others) to stall during stafe transitions. 


v03-025 SRB0137 teve Beckhardt 11-Jul-1984 
Remove race conditions from dequeue/all code. 


4; 
5 ;* ry 
§ i* coeryiet (c) 1978, 1980, 1982, 1984 BY * 
0 3* DIGITAL E gui paent eGORPORATION, MAYNARD, MASSACHUSETTS. * 
0 ; in ALL RIGHTS” RESER « 
PY ® 
10 ;* THIS SOFTWARE 1s FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
11 ;* ONLY IN omit NCE WITH THE TERMS OF SUCH bicen NSE AND WITH THE ®* 
. 12 ;* INCLUSION THE ABOVE COPYRIGHT NOTICE. THIS SOFT ARE OR ANY OTHER * 
135 ;* COPIES ON EREOF MAY sree BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
0000 1? re TRANSFERRED. * 
$ * 
00 i$ ;* jie | INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 3* AND LO NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 2 
ony 1, :* CORPORATION. * 
P ® 
000 1 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 § 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
B33 
0000 5 | Ce RNUSenRSwOCNdeOnENNNESESeoNSEREOSesneannesenoensnnneniOeeneeeseccoeseeenes 
0000 39 
909 3 i FACILITY: EXECUTIVE, SYSTEM SERVICES 
000 0 : ABSTRACT: 
+44 1 ; This module implements the SENQ, SENQW, and $DEQ system services. 
9000 5 : ENVIRONMENT: VAX/VMS 
0900 2 ; AUTHOR: Steve Beckhardt, CREATION DATE: 30-Oct-1980 
$8 f > MODIFIED BY: 
000 9; v03-029 SRBO151 Steve Beckhardt 21-Aug-1984 
000 40 ; Fixed bug in ‘parent not sremnad" code to avoid spurious 
; 3 re 3 errors. 
0 rk : v03-028 SRBO144 Steve Beckhardt 9-Aug-1984 
p rt: 3 Fix broken branch. 
46 : v03-027 $RB0141 Steve Beckhardt 6-Aug-1984 
0 ? : Changed the way system-owned locks are determined in 
#8 : 
0; 
4 ; 
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v03-024 $h80155 Steve Beckhardt 22-Jun-1984 
Fixed two bugs: Don! t lose Lock mode in seaneetinn code 
when an AST is ei ceaty queued. ) Check CVTSYS bit of parent 
lock when convertin eee to system owned instead of 
looking for a zero 


v03-023 $RB0132 Steve Beckhardt 25-May-1984 
towed parent locks to be in CONVERT state when SENQing 
sublocks. 
v03-022 sne0ie6 Steve Beckhardt 9-May-1984 


Ain bug meres locks that were system owned that 
re not successfully converted no longer had the 
tCKSN. CVTSYS bit set. 


v03-021 CwWH3021 CW Hobbs 14-Apr-1984 
Fixed some broken branches. 
v03-020 $RB0119 Steve Beckhardt 6-Apr-1984 


Changed access mode checking on lock ids. Reorganized 
code involved in pat ecor’flaoe and fixed bug. 
Added support for LCKSM_NODLCKWT f 


V03-019 SRBO116 Steve Beckhardt 8-Mar-1 
Return status gee in LCKSDEQLOCK, change all SETIPL O° 
to SETIPL #IPLS_ASTDEL, and fix two broken word displacements. 


SooooooooooooooSo 


v03-018 LJK0264 Lawrence J. Fenzh 29-F eb-1984 
Fix broken word displacements. 

v03-017 SRB0108 Steve Beckhardt 11-Jan-1983 
Added support for hashed root directory. 

V03-016 SRBO106 Steve Beckhardt 6-Dec-1983 
Changed LKBSL_REFCNT, RSBSL_REFCNT, RSBSL_BLKASTCNT 
to word fields. 

v03-015 ped 01 Steve Beckhardt 7-Sep-1983 

Fixed bug that prevented canceling locks with sublocks. 
v03-014 $RBO100 Steve Beckhardt 18-Jul-1983 


Enabled local deadlock detection. Fixed PMS counters. 
Fixed code for canceling locks and use of routine FREE_LKB. 


v03-013 SRB0094 Steve Beckhardt 23-Jun-1983 
Added support for PROTECT and RECOVER bits. Added support 
for converting new locks to be esse. owned. Made several 

ite to support multinode failover 


v03-012 SRBO Steve Beckhardt nm 
higeg” Support for extending lock id, table. ved s 
PMS counters and added new Loon Cleared évisys bit, “Tastead 
of Serer <0 it to fix bug involving system omer * ocks. 
Added support for stalling requests during a failover. 


v03-011 SRB0083 Steve Beckhardt 29-Apr-1983 
Added support for system owned locks. Rewrote sartions 
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=SEP=1 SYS.SRCISYSENQDEQ.MAR; 1 (1) 
of the conversion and dequeue code. 
v03-010 see0d7s Steve Beckhardt 25-Mar-1983 
Added support for two new $DEQ flags: CANCEL and INVVALBLK. 
v03-009 SRB0069 Steve Beckhardt 77-Mar-1983 


Changed poy to BUG_ CHECK. Modi fied handling of ow oe blocks 
on conversions to return value block on conversions to same 
lock mode. Changed access mode handling to Got iver ASTs in 
mode of caller. Added support for LCKSM_NOQUOTA flag. 

Added conditionals around .PSECTS to allow loading for 


debugging. 
v03-008 _— Rod N. Gam 2-F eb-1983 
Changed paged PSECT to TSEXEPAGED PSECT. 
v03-007 penode Steve Beckhardt 7-Jan-1983 
Added support for distributed lock conversions. 
V03-006 $RB0057 Steve Beckhardt 15-Dec-1982 


Added support for distributed SENQ of new locks, 
grecriouces $DEQ, blocking ASTs, root directory 
handling, etc. 


v03-005 s700055 Steve Beckhardt 6-0c t-1982 
Fixed a number of small things that prevented service from 
being loadable. Added coded to dequeue subtrees. 


v03-004 SrRB0053 Steve Beckhardt 6-0c t-1982 
Fixed bug causing improper handling of common event flags 
on conversions. 


v03-003 KOM0002 Kathleen D. Morse 28-Jun-1982 
Added SPRDEF and $SSDEF. 
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.SBTTL DECLARATIONS 
; INCLUDE FILES: 


EXTERNAL SYMBOLS: 


MACROS: 


PRPARAPAAAGM 
ps 


Ss Bees na oma ems Bs 4 oe a oma Bon Bn Bn a a) 


EQUATED SYMBOLS: 
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ACB qr isets 

Conditional assembly switches 
Structure type code definitions 
IPL definitions 

IRP offsets 


Processor register definitions 
Priority increment class definitions 
Privilege bits 


Resource numbers 
System status code definitions 


Enqueuve system service argument List offsets: 


> 


; Event flag number 

; Lock mode 

; ce status block address 
ags 


; Resource name 
; Parent id 


AST routine address 
AST routine parameter 
Blocking AST address 
Access mode 
Protection mask 


; Dequeue system service argument List offsets 


; Lock id 
; Value block address 
; Access mode 


SYSENQDEQ = ENQU 
V04= DECLAR 


ATEONS 
0000000F 
saat 
0000 
0000 


M14 
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POOL_MASK = “XF ; Pool allocation granularity mask 


i OWN STORAGE: 
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SYSENQDEQ 
v04-000 


yes 
no 
no 
no 
no 
no 


yes 
yes 
no 
no 
no 
no 


yes 
yes 
no 
yes 
no 
no 


following assumptions rogers oe. : 
ou 


These values cannot be changed wi 


yes 
yes 
yes 
no 
no 
no 


yes 
yes 
yes 
yes 
yes 

no 


' 

' 
NLMODE 
CRMODE 
CWMODE 
PRMODE 
PWMODE 
EXMODE 


yes 

yes 

yes 

yes 

yes 

yes 

table makes the 


LOCK MODE COMPATIBILITY TABLE 


SUME LCKS$K 
SUME LCKS$K 
SUME LCKSK 
SUME LCKSK 


I A ee ee eee eee 


ASSUME LCK$K 


patibility 
the values of the lock modes. 


changing the table 


CR R/SW i 
eowooooestoosoooe}oecosooot}os 


Cw wW/SW i 
sete moses poem nm eapmoenacre pose momafpoewmmorenrpPocemem epee mocen 
Pw W/SR i 
EX W/NL i 


AS 


AS 
AS 
AS 


Ns I eee 


PR R/SR } 
ASSUME LCKSK 


The lock mode compatibility table represents the following 
NL NL/SW i 
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-SBTTL EXESENQ = Enqueue system service 


p++ 
; FUNCTIONAL DESCRIPTION: 


This routine handles the SENQ system service. 
; CALLING SEQUENCE: 
CALLS/G pa (actually called through the system service 


dispatcher) 
PARAMETERS: 


EFNCAP) 
LKMODE (AP) 
LKSBC(AP) 


ACMODE (AP) 
R4 


¢ OUTPUT PARAMETERS: 


RO 


; COMPLETION CODES: 
In RO: 


$s 
S 
$s 
S 
Ss 
Ss 
$s 
$s 
Ss 
$s 
$s 
$ 
S 
S 
S 


SS$_SUBLOCKS 
SS$_PARNOTSYS 
In LKSB: 


=CvT ANT 
“PARNOTGRANT 


BUFLEN 
FRER 


ANWNNNNNNNNNONYNYNO 


Event flag number 
Lock mode 
Address of lock status block 


ags 
Address of descriptor of resource name 
Parent lock 

Address of Sonprat ren AST routine 

AST paramete 

Address of blocking AST routine 
Protection mask 

Access mode 


Address of PCB 


Completion code 


Successful completion 
Synchronous successfui completion 


Access violation (on LKSB or resource name) 


Bad lock mode 

Invalid lock id 

Attempted to convert - ungranted lock 
perent lock not granted 


No SYSLCK priv) loge my yd: for a system lock) 


Resource name Length = 
Insufficient ah memory 
Exceeded AST quota 

Exceeded yg gate 
Request was not 


ued 
Exceeded allowed depth of resource name tree 


No priv 
system owned lock) 


ege (to not charge quota or conver® to 


A Seapsee to convert a system owned lock with 


sublocks 
Parent lock not system owned 
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C 3 
C : SS$_NORMAL Successful completion 
C 3 $S$$_ DEADLOCK Deadlock detected 
C ; $S$$_ABORT Lock was dequeued before being granted 
: ¢ : SS$_CANCEL Lock request was canceled before being granted | 
¢ — 
€ IF NDF LOADS | 
0000 35 “PSECT YSEXEPAGED | 
$' ~ ENDC 
3 $3 -ENABL LSB 
ass ae * a 16 $00 64 5$ JSB G“*SCHSGETEFC ; Validate common event flag 
5 04 AC 00 $94 65 MOVL EFN(AP),R ; Refetch event flag number 
8 OA 26 BLBS RO,10$ 3; Rejoin common code 
4 4 6 RET ; Return = bad event flag 
OOE 68 
OQO0E +4 IF NOF LOADSW 
OFFC 0916 oY 9 ie EXESENQ, “M<R2,R3,R4,R5,R6,R7,R8,RI,R10,R11> 
01 a SENTRY EXESSENQ, “M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> 
010 7 -ENDC 
010 74 
8318 ie :; Verify event flag is ok 
53 04 ag DO 0010 r§ MOVL EFNCAP) ,R3 ; Get event flag number 
ae 91 0014 78 CMPB R3,#63 ; Is it a local event flag? 
E7 1A Bato O BGTRU 5$ ; No = validate common event flag 
$619 81 10$: ; Probe lock status block. For performance reasons, we assume the 
0019 8 ; presence of a value block and probe 24 bytes. If this fails, 
Baig 8 ; then we check to see if there isri't a value block and in 
Baie rf: ; that case probe & bytes. 
0079 86 ASSUME FLAGS EQ LKSB+4 
3013 tf ASSUME LCKSV_VALBLK €Q 0 
58 OC AC 7D $019 35 mova LKSB(AP) ,R8 :; Get address of lock status block in 
001D 90 ; RB and get flags in R9 
318 91 IFWRT #24,(R8),20$ ; Branch if writable 
1A 59 «EB 00 98 BLBS P ; Error if there's a value block 
3 4 37 IFNOWRT #8, (RB) ,60$ ; No value block - br. if not writable | 
: 3 208: ; Get lock mode and check for legality 
57 08 ac SA 39 MOVZBL LKMODE(AP),R7 : Get lock mode 
0 Ss? 91 38 MPBsoR7 , #LCKSK_EXMODE : Is it legal? 
0— 1A 399 BcTRU 708 ; No = error 
? 1 ; Determine if this is a new lock request or a conversion 
59 02 B63 ? BITW #LCKSM_CONVERT ,R9 ; Is convert bit set? | 
$9 .1F NOF LOADSW 
22 (13 406 BEQL-NEW_LOCK ; Branch if new lock 


Fk tet tele lt tet ee ee 
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407 JMP 

4 8 vIFF 

4 BNEQ 
410 BRW 

41 ENDC 
a8 

414 ERRORS: 

i 

‘i? 60$:  BRW 
418 70$: MOVZWL 
‘3? JMP 
422 .DSABL 


G* CONVERSION 


CONVERSION 
NEW_LOCK 


ACCVIO 


S*#SS$ BADPARAR, RO 
ERROR_EXIT 


LSB 


"SSEp=198¢ 08:58:18 ENS SRCRY 
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; Conversion 


; Branch if conversion 
; New lock 


Couldn't access LKSB 


; Bad lock mode 
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~SEP=1984 
~SBTTL CONVERSIONS 


SYS.SRCISYSENQDEQ.MAR; 1 


++ 
FUNCTIONAL DESCRIPTION: 

This routine handles lock mode conversions. 
CALLING SEQUENCE: 


Branched to from SENQ service 
RET back to caller 


INPUTS: 

R3 Event flag number 

R4 Address of PCB 

R7 Lock mode 

R8 Address of LKSB 

RG Flags 

Caller’s argument List (offsets from AP) 
OUTPUTS: 

RO Completion code 


IMPLICIT OUTPUTS: 
Calier's Lore, status block gets final request status (perhaps 


aynchronously 
COMPLETION CODES: 

In RO: 
SS$_NORMAL Successful completion 
SS$_SYNCH Synchronous successful completion 
SS$_IVLOCKID Invalid lock id 
SS$_CVTUNGRANT Attempted to convert an ungranted lock 
SS$_INSFMEM Insufficient dynamic memory 
SSS_EXASTLM Exceeded AST quota 
SS$_NOTQUEUED Request was not queued 
S$S$_NOP No pr vetlope (to convert to system owned lock) 
$S$$_SUBLOCKS atspaetes © convert a system owned lock with 

sublocks 

SS$_PARNOTSYS Parent lock not system owned 

In LKSB: 
SS$_NORMAL Successful completion 
SS$_DEADLOCK Deadlock detected 

ABORT Lock was dequeued before being granted 

SS$_CANCEL Lock request was canceled before being granted 


- IF NDF LOADSW 
~-PSECT LOCKMGR 
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V04- 2 
CONV -SEP- SYS. SRCISYSENQDEQ.MAR; 1 6) vl 
481 -ENDC 
88 
? 7 -ENABL LSB 
485 ; 
? § : Errors: 
4 € 
50 0€32 f 2 2 ° 8$: pOvaNl. $558_RETRY RO ; Retry operation 
50 213C _8F Hi 491 198: MOVZWL 9 #SS$_CVTUNGRANT,RO ; Lock not currently granted 
0528 1 13 128: BRW ERROR_EXIT_RO 
10 57 2 EO 494 148: BBS SL XBSV_DCPLAST A. 168 ; Branch if queued for completion AST 
DD 495 PUSHL R ; Save lock mode 
55 6 00 $36 VL R6,R5 ; Queued for blocking AST only 
00000000 GF if} 49 JSB G*SCHSREMOVACB : Remove it 
H 8ED £28 POPL R5 3; Restore lock mode 
11 49 BRB 21$ 3; Continue with conversion 
16$: SETIPL #IPLS_ASTDEL ; Lower 
00000251"EF 16 1 JSB FREE _CKB ; Free up LKB 
25.—S os 3 BRB 15 ; Returns at IPL$_SYNCH 
Be 17$: 3; Stalling some requests - see which ones 
OA 19 86 BLSS 18$ : Stalling all requests 
09 —s €E BBC #LKBSV_PROTECT,- : Stalling only protected locks 
33 2A A6 08 LKBSW_ STATUS (RO) ,19$ ; Branch if this is not a protected lock 
1A EO 09 BBS #pces? VER,=- 3 Don't stall recovery process, 
C6 24 AS 10 PCBSL_STS(R4) ,6$ 3; return error instead 
oc47.— C51 i 18$: BRW STALL REQ ; Stall this request 
ig CONVERSION: 
14 ; First get input arguments into registers (and on stack) because 
12 ; when they're stored we'll be at IPLS$_SYNCH. 
i$ ASSUME ASTPRM EQ ASTADR+4 
18 ASSUME LCKSV_VALBLK EQ 0 
. = 0 Y POVL R7,R5 ; Move lock mode to R5 
SA IC AC OD MOVO = ASTADR(AP) R10 : Fetch completion AST address (R10) 
§ 3; and AST parameter ( 
52 4aC OD MOVL BLKAST(AP) ,R2 ; Fetch blocking AST address (R2) 
59 8 4 BLBC ; ; Branch if no value bloc 
7E A 5 MOVG 16(RB),-(SP) : Copy caller's value block onto stack 
7E O8 A 70 $ mOVa 8(RB) ,-(SP) 
8 15$: ; Get lock id, validate and convert to LKB address in R6. : 
; Mote thet our raising IPL to IPL$_SYNCH is tied to the assumptions 
? 3 stated in the routine FREE_LKB. 
51 04 a8 00 § MOVL 4(R8) ,R1 : Fetch lock id 
SETIPL #IPL$_SYNCH 3; Ra s¢ IPL 
O8FF 30 4 BSBW VERIFYLOCKID 3 Verify lock id and return LKB in R6, 
5 ; caller's access mode in R1 
ac 50—soéE9 § BLBC RO,12$ ; Error 


00000000 ' GF 
C6 


2A A6__ 01 
37 
¢ A6 

8 
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218: 


26$: 
228: 
3$: 
4$: 


25$: 


; Verify that we aren't stalling lock requests. 


TSTB G“*LCKSGB_STALLREQS ; Are we stalling requests? 
BNEQ 17 7$ ; Yes, see hich ones 


s ag lock is granted and that the LKB is not queued to deliver 
3; an AS If ok, store input args in LKB. 


ASSUME LKBSW_STATUS EQ LKBSW_FLAGS+2 
ASSUME LKBS$K-GRANTED 
ASSUME LKBSLIBLKASTADR E€Q LKSSL_CPLASTADR+4 
TSTB ,rese_ STATE (R6) 
BLEQ 
MOVZWL LKBSW_STATUS(R6) ,R7 
BITW #LKBSA_DCPLAST- 

iL KBSA_ DBLKAST ,R7 
BNEQ $ 


BICW #LKBSM_DCPLAST- 


Is the oun currently granted? 
Ne - err 
Pick up current status 


(are we del 
blocking AST?). Branch if yes. 
Clear relevant status bits 


'LKBSM_DBLKAST= The M+ od oe bits retain their 
'LKBSM_ASYNC- old state 

'LKBSM_BLKASTQED- RSI CPY (shouldn't be set) 
'LKBSM_TIMOUTQ= NOQUOTA 

'LKBSM_WASSYSOWN- PROTECT 


BS 
iLKBSM"CVTTOSYS, = 
LKBSW_ STATUS (ROS 
MOVB RS LK KB$B_EFN(R6) 
MOVL RB ities LKSB(R6) Store LKSB address 
MOVL  LKBSL_RSB(R6) RB Get RSB address in R8 


; Determine if we need to convert this lock to system owned or 
3 process owned. R1 contains Sollae® S$ acccess mode. 


wovzeL LKBSB “PipcRey oR3 


Store event flag number 


; Save old granted mode 


Gt 3 $L-P 6 ; Is lock currently system owned? 

es 
BBC Rien CVTSYS,R9,25$ - handle normally if CVTSYS is clear 
BBC LEKSSYNCCVE _TALER3, ois “clear cvTSys flag if async. cvt. 
BSBW TO_SYS : Convert t system owned loc 
Bis 5 viedo SYNCSTS,R9 CVvTSYS lanttes SYNCSTS so ant it 
BBC LCKSSYNCCVT_TBLCR3), 238 Cvt to process owned if async. cvt 
BBS BeekSy _CVTSYS,R9, 268 ; Leave as is if CVTSYS flag is is set 
BSBW CVT 107 PRC Convert to process owned loc 
BBSC #LCRSV-CVTSYS,R9,25$ : Clear CVTSYS flag, ignore ad 


: ALL error checking and ed between system owned and process 
; owned has been performed. Store new AST addresses and parameter. 


MOVL LKBSL_BLKASTADR(R6),- ; Save old blocking AST address 
LKBSL~ _OLDBLKAST(R6) 
; Note: This tests the old contents 
3; of this field and must come before 
3 one new contents are stored. 
BEQL 30$ : 
MOVL LKBSL_ASTPRM(R6 3 


),- : ee old AST parameter 
LKBS$L~OLDASTPRM(R6) 


"Si$EP-1986 08:58:48 ESYS'SacSsvsenapeacman:1 = "29" 


Is the ACB gorsion of the LKB in use? 
vering a completion or 


———— 
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42 AB B7 cf 9 DECW Rsasu BLKASTCNT(R8) ; Decr. blocking AST count 
14 46 8 44 D 96 30S: MOVL R RBSL_ASTPRM(R6) ; Store new AST parameter 
58 p b3 9 MOVL Re R71 ; Move blocking AST address 
10 6) «5A DOOD 9 MOVG R10,LKBSL_CPLASTADR(R6) ; Store new completion AST address (R10) 
dC 9 i and new blocking AST address (R11) 
28 A6 » #§ D MOVW R9, LKBSW_FLAGS(R6) ; Store flags 
51 : D E MOVL " 3; Move requested lock mode 
58 D E MOVL R3,R11 § 
Fee 
OE 6 : from PW of &X, then store caller's value block in RSB. 
1A 22 53 E 4 BLBC R9,33 ; Branch if no value block specified 
04 Q 1 0069 60 CMPB R11 -#LCKSK_PUMODE ; Is granted mode PW or higher? 
1 1F EC 0 BLSSU 33$ 3; No 
5B 51s! EE CMPB a R11 :; Is conversion to a higher lock mode? 
10 1A OOF1 BGTRU 33$ : Yes 
AB 6— 7D oF MOVa (SP), RSBSQ_VALBLK(R8)  ; No, copy caller's value block to RSB 
30 AB 98 AE 7D OF MOV 8(SPS,RSB$Q_VALBLK+8(R8) 
CA D6 FC INCL RSBS$L_VALSEQNUM(R8) : Increment value block sequence number 
AA OOFF BICW #RSBSA_VALINVLD,- 3; Validate value block 
OE A RSBSW_STATUS (R35 
33$: 3 at Sats is a process ropy LKB then jump to distributed lock 
3 code. 
53 38 a8 OD MOVL RSBSL_CSID(R8) ,R3 : Get CSID of destination system 
28 C1 35$ 3; Yes 
-I1F NE CA$_MEASURE 
00000000 ' GF 06 INCL G*PASSGL_ENQCVT_LOC 


LCKSLOCAL_CVT:: 
; Remove this lock from the granted queue. If i¢ was the only one and 
; if the conversion queue is also empty, then the conversion request 
3; can be granted immediately. This path is special cased because it 
3; is the normal case. 


REMQUE LKBSL_SQFL(R6) ,RO 
MOVAL —RSBSL_CVTQFL (RB) ,R10 
(R10) 7R10 


Remove lock from granted queue 

Not the i one 

It's the only granted lock 

Is conversion queue empty? 

It's not - must check the longer way 
It is = grant lock 

Point to wait queue 
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BSBW LCKSGRANT_LOCK ALT 
#8,R10 

CMPL (R10) ,R10 
60$ 


vw 
>> 


Is wait queve empty? 

Yes, exit with eqnpiez ten status in RO 
No, save status in R1 

fry granting waiting locks 

Exit with completion status in R10 


a 
o7es 


00000000 ' GF 


RO,R10 
BSBW A ammbettees 


=" 
N~ 


35$: JMP G*LCKSSND_CVTREQ 
; Possible return points are: 
; LCKSCVT_GRANTED Conversion was granted 


Send convert request 


| 
| 
| 
: 
00000002 0 
| 


SSS SS OSCSS SES 


WAR REEL RES 


Move granted lock mode 
; If a value block is specified and we are converted down (or same) 


<9 
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§ 3 LCKSQUEUE EXIT Conversion was queued 
3 LCKSCVTNOTQED Conversion was not queued 
4 ; LCKSLOCAL_CvT Remote system failed and conversion 


should now be done locally 


&~ 
oO 
of 


There was at least one qsher holder of the resource so we have 
to check for genpet bility the longer way. The granted mode 
of this lock is compared with the genversven rant mode. If, 
other than the head of the conversion queue, there are granted 
Locks with higher lock modes than this lock, then there 

is no need to recompute the group grant mode or attempt to 
grant waiting conversions. 


OD A8 ‘0 3 et #1] -RSBSB_CORODE (AE) 3 is granted mode = conv. grant mode? 
; Yes 
OC A SA MOVZBL RSBSB_GGMODE (RS) ,R5S ; No, get group grant mode 
39 FEBS CF45 51 & BBC Ri -LCRSCOMPAT TBLCRS],80$ ; Branch if not compatible 
0400 30 BSBW bck GRANT_LOCR ; Grant the lock 
. ca) BRB 60$ 3; Exit with completion status in RO 
O75F 30 45$: BSBW LCKSCOMP_GGMODE ; Compute new group grant mode in R5 
2A FEAA CF4S 3! Fi BBC R1,LCKSCOMPAT TBLCR5),80$ ; Branch if not compatible 
OC A 5 90 MOVB  R5,RSB$B_GGMOBE (R8) ; Store group grant mode in RSB 
0b AB =65550—s 90 MOVB R5,R ODE (RB) ; Also store conversion grant mode 
04A9 30 BSBW I. CKSGRANT_LOCK ; Grant lock 
SA 50 be MOVL RO,R10 3; Save completion status in R10 
076A 0 BSBW LCKSGRANTCVTS ; Try granting conversions and waiters 
50 SA 00 50$: MOVL R10,R0 3; Restore completion status to RO 
60$: ; The conversion was performed Sper gg yet Completion 
3 status is in RO. If a value block is specified then 
3; if we converted up or to the same level at NL - PR then 
3; return value block to caller. 
ASSUME LCKS$V_VALBLK €Q 0 
LCKSCVT_GRANTED: : 

10 59 3 BLBC Ro ; Branch if no value block specified 
5B 35 A6 1 CMPB LKBSB_GRMODE (R6) .P11 ; Was conversion to a lower lock mode? 
OA 1F BLSSU 2 ; Yes, don't return value block 

93 1A BGTRU 65$ : Cvted to a higher mode; return valblk 
04 ; 91 CMPB se R'11, ALCKSK_PWMODE : Was old mode PW or higher? 
9 1E BGEQU§ 75$ : Yes, don't return value block 
83 A 3] $35: BRW LCKSRET_VALBLK 3; No, return value block to caller 
7A 1 $: BRwW LCKSNORET_VALBLK 


80$: 3; The conversion cannot be granted. Queue the request 
; unless the nogueve bit is set. If the conversion queue is empty 
3; then RS contains the new conversion grant mode. 


BBS #LCKSV_NOQUEUE,R9,85$ ; Branch if noqueve is set 
3; Queue the conversion 
B R1 Lcee RQMODE (R6) ; Store requested mode 
QUEUECVT 


MOV ‘ 
BSBW LCK ; Insert onto conversion queue, etc. 
BRW LCKSQUEVED_EXIT 


0A 59 02 €0 


IDS DS DS DS DS DDS DDE PAPA AAA AAA AAAAA A AAPA AAO OOOO OP AAAS OAOAO 
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; The request is not to be queved. Insert back onto the 
; granted queue. R7 contains old LKBS$W_STATUS. 


INSQUE Eres ~SQFL(R6) 


; Put lock back on granted queue 
RSBSL~GROFL(RBS ° oe 


LCKSCVTNOTQED: : 


2 VO 


Oouwcrr>r-—>> 

MPA ODA AO 
OB Bd oo 
OOOO OOOOMDWOMIMWDVIVIWVIDS SY PF OOOOO0O00O0 000 0M00000 
SNe 


NOUS WN MO OONAU EWN $9 OD IAMS WN SO ODN W000 


SSNS 


PPS SS ee 


; Restore old blocking AST address and parameter and requeue 
; a blocking AST, if necessary. 


-IF NE CAS Pea 
INCL G*PAS at UENONOTOD 
-ENDC 


MOVL LKBSL_OLDBLKAST(R6),- ; Restore old blocking AST address 
bees. BLKASTADR(R6) 

BEQL 5$ ; None specified 

MOVL tthe “RSTPRNCRO) - 3 Restore old AST parameter 

INCW RSBSW-BLKASTCNT(R8) : Incr. blocking AST coun 

BBC #LKBS0_ DBLKAST,R7,95$  ; Branch if blocking AST een *t queued 


R6 
BSBW Queue BLKAST 


Requeue sy AST 
3; Couldn't be ty em owned if a blocking 
3; AST was queued. 


; Now convert lock back to system owned, if necessary 


BBC #LKBSV_WASSYSOWN,- ; Branch if it wasn't system owned 
LKBSW_STATUS(R6) ,98$ 

MOVL G*SCHSGL CURPCB,R4 ; Get PCB address 

BSBB CvT_TO_SYS_1 ; Convert to system lock 

; Complete request with error status 

+ ans #Ss$ wth RO ; Store status 

BRW ERROR_EXIT_RO : Exit 


-DSABL LSB 
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-SBTTL CVT_TO_SYS = Convert to system owned lock 


++ 
; FUNCTIONAL DESCRIPTION: 
This routine converts a lock from process owned to system owned 
; CALLING SEQUENCE: 
BSBW CVT_TO_SYS 
BSBW CVT_TO_SYS_INT 
IPL_must be at IPLS_SYNC 
NOTE: Errors are passed to error exit, not returned to caller 


; INPUTS: 


csaternes entry point w/o error checking) 


; Access mode of caller (CVT_TO_SYS entry only) 

3 RG Address of PCB 

3 R6 Address of LKB 

> OUTPUTS: 

: RO Completion code (returned to error handler, not caller) 
: COMPLETION CODES: 


SS$_NOPRIV Caller wasn't in EXEC or KERNEL mode 
SS$_PARNOTSYS Parent lock is not a system lock 


; SIDE EFFECTS: 
RO is destroyed 


-ENABL LSB 


CVT_TO_SYS: 
“<4 Verify that caller is in EXEC or KERNEL mode and that 
; this lock's parent lock is also system owned. 


CMPB R1 ,#PSLSC_EXEC Is caller privileged? 


BGTRU : No, error 
MOVL LKBSL_PARENT(R6) ,RO ; Get parent LKB address 
BEQL CVT_T60_SYS_INT : 


4 No parent 
BBC #LCRSV-CVT Branch if parent not system owned 


SYS_- 
LKBSW_FLAGS (RO) ,80$ 


CVT_TO_SYS_INT: 
~ "'; Request passed all error checks, do the conversion to pyaten owned. 
; Return quota to process, if charged, clear the lock's PID 
3; and remove from the process's lock queue. 


BITW #LKBSM_NOQUOTA,- ; Was quota charged? 
LKBSW_STATUS(RO) 

BNEQ 0$ ; No 

MOVL PCBSL_JIB(R4) ,RO :; Yes, get address of JIB 

INCW JIBSWTENQCNT (RO) : Return quota 
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~m 
So 
Sed 


BISW 
CLRL 
REMQUE 
BISW 
RSB 

: Errors 
MOVZWL 
SRB 
MOVZWL 
BRW 


-DSABL 


é 
c 
#LKBSM_NOQUOTA 
LKBSW_STATUS(R 


LKBSL_PID(R6) 


LKB b A OWNOEL (RO) .RO 


#LCKSA_CVTSYS, = 
LKBSW_FLAGS (R64) 


E559 _NOPRIV RO 


#SS$_PARNOTSYS,RO 


ERROR_EXIT_RO 
LSB 


<i 


fe} 
SYS.SRCISYSENQDEQ.MAR; 1 
Set NOQUOTA bit 


; Remove from PCB queue 

; Set this flag in case we are 

: r we have a NOQUEUE 
t got cleared) 


N 15 
UE SYSTEM SERVICES 1 


Page 19 
: (8) 


SYSENQDEQ = ENQUEVE/DEQUE -SEP-1984 02:1 AX/VMS Macro v04-00 
v04-000 CVT_TO_PRC = Convert to process owned lo eet §5:95:18 YoY. SRCISYSENGDEG MAR: 1 
§ ~SBTTL CVT_TO_PRC = Convert to process owned lock 
8 ;++ 
9 ; FUNCTIONAL DESCRIPTION: 
° ; This routine converts a lock from system owned to process owned 
0 § ; CALLING SEQUENCE: 
0 5: BSBW = CVT_TO_PRC 
8 § 3 IPL_must be at IPL$_SYNCH 
9 3 : NOTE: Errors are passed to error exit, not returned to caller 
0 08 39 : INPUTS: 
6 $B re : R4 Add f PCB 
; ress 0 
et as ee te hs 
3 npu ags 
0208 844 ; : . 
0208 845 ; OUTPUTS: 
0208 He 3 
Osoe 4 : RO Completion code (returned to error handler, not caller) 
0208 849 : COMPLETION CODES: 
OS 08 850 ; 
0208 851; SS$_EXENQLM Exceeded enqueue quota 
0208 $26 ; SS$_SUBLOCKS System owned locks with sublocks cannot be converted 
0208 853; to process owned locks 
0208 854; 
$508 855 ; SIDE EFFECTS: 
0208 856; 
0208 857 ; RO is destroyed 
8508 858 ;-- 
0208 859 
0208 860 CVT_TO_PRC: | 
O508 bse ; Verify that this lock has no sublocks 
4C A6 = =6©BS) C0208 6 TSTW LKBSW_REFCNT(R6) , 3; Are there any sublocks? 
2F 12 0208 864 BNEQ © 80S | in wreee . 
8500 beg 3; Charge quota unless NOQUOTA bit is set 
59 20 83 6500 $08 BITW #LCKSM_NOQUOTA,R9 ; Charge quota? 
OF 1 1 a6? BNEQ 20$ 3; No 
50 0080 C D 1 MOVL PCBSL_JIB(R4) ,RO ; Yes, get JIB address 
4C AO B 1 71 DECW JIBSW_ENQCNT (RO) > Charge one 
16 19 1A 8 BLSS 0$ 3 No quota - error 
20 AA 1C 7 BICW #LKBSM_NOQUOTA,- : Indicate it was charged 
2A Ab 1 874 LKBSW_STATUS(R6) 
Bre 20$: 3; Store PID and insert onto PCB iock queue 
0080 8F A8 § oe BISW #LKBSM_WASSYSOWN,- ; Set status bit to indicate lock was 
2A Ab 4 7 LKBSW_STATUS(R6) 3 system owned 
0 A4 00 § e MOVL PCBSL_PID(R4),- 3; Store PID 
C A6 1 LKBSL_PID(R6) 
40 A6 COOE 8 82 INSQUE LKBSL_OWNQFL(R6),- : Insert at head of PCB queue 


— FT ARMS A See ee ee FAH OM Ss Be Kee TOMNMOOM S Br Kee TA NNO Ss Ber Kee TAM 
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v04-000 CVT_TO_PRC = Convert to process owned lo ~3Eb= 98e 6:95:18 ESyS SRCISYSENODEG. MAR: 1 “f ‘a 
0104 C4 f 3 PCBSL_LOCKQFL(R4) ) 
05 ¢ RSB 
0 6 : Errors 
6 5 
4C AO B6 O 90 70$: INCW JIBSW_ENQCNT(RO) ; Put back charged quota 
50 2A44 BF 3C 023 891 MOVZWL #SS$_EXENQLM,RO 
11 023A 535 R 90$ 
50 212C 8F Mt 023C 893 80$: MOVZWL #SS$_SUBLOCKS,RO 
O2FF 1 0241 894 908: BRW ERROR_EXIT_RO 
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v04-000 NEW LOCK = New lock request (not convers 5-SEP-1984 05:52:4 SYS.SRCISYSENQDEQ.MAR; 1 (9) | 
re 8 «-SBTTL NEW LOCK = New lock request (not conversion) 
rr 38 ; FUNCTIONAL DESCRIPTION: 
44 0; This routine handles requests for new locks, as opposed to 
44 901; conversions. This routine eventually branches to EW_RESOURCE 
44 4 ¢ : or OLD_RESOURCE depending on whether the resource alréady 
4G 3 exists or not. 
446 «904 ; 
re 5 ; CALLING SEQUENCE: 
44 9 : $ Branched to from SENQ service 
44 908; RET back to caller 
44 909; 
44 910 ; INPUTS: 
0244 911; 
8 44 318 ; R3 Event flag number 
44 9135; RG Address of PCB 
024646 914; R7 Lock mode 
0244 915 ; R8 Address of LKSB 
02464 916; Rd Flags 
0244 917; 
0244 918; Caller’s argument List (offsets from AP) 
0244 919; 
0244 920 ; OUTPUTS: 
te 3 > RO Completi d 
3 ompletion code 
0 44 9 : ; 
8 a2 4 : ; IMPLICIT OUTPUTS: 
8 44 «9 § 3 Caller’s lock status block gets final request status (perhaps 
rr 3 i 3 aynchronous ly) 
6 44 929 ; COMPLETION CODES: 
0244 930; 
0244 931; In RO: 
0244 9 § 2 
0244 933; SS$_NORMAL Successful completion ; 
3 44 934; SS$_SYNCH Synchronous successful completion 
44 935; SS$_IVLOCKID Invalid lock id 
0244 9 $ : SS$_ACCVIO Access violation (on resource name) 
44 937 ; SS$_PARNOTGRANT Parent lock not granted 
44 938; SSS NOSYSLCK No SYSLCK privilege (needed for a system lock) 
4h 4 9; SS$_IVBUFLEN Resource name Length = 0 or > 31 
as 40 ; SS$_INSFMEM Insufficient dynamic memory 
44 941; SSS_EXENQLM Exceeded enqueue quota 
44 2e6 ; SS$_NOTQUEUED Request was not queued 
vr Se7 ; SS$_NOPRIV No privilege (to not charge quota) 
44 945 ; Im LKSB: 
4G 208 5 y 
44 947; SS$_NORMAL Successful completion 
44 3e8 3 SS$_DEADLOCK Deadlock detected ; 
re rh 3 SS$_ABORT Lock was dequeved before being granted 
4% $31 
44 952 IF NOF LOADSW 


— 
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SYSENQDEQ = ENQUEVE/DEQUEVE SYSTEM SERVICES 16-SEP-1984 02:02:1 AX/VMS Macro v04-00 Page 
v04-000 NEW_LOCK = New lock request (not convers etsy §3:93:18 LEYS  SRCJSYSENGDEG_MAR: 1 ’ %) 
0000004C 927 -PSECT YSEXEPAGED 
rt 2 -ENDC 
4¢ $56 -ENABL LSB 
4C 82 
4¢ 23 3 
Re 959 ; Errors: 
4C 960; 
04C 961 
50 of #6 Bee oe8 ACCVIO: BOVZWL  Geepe persis ney ; Access violation on res. name or LKSB 
50 Q34C 8F 3 051 64 2$: MOVZWL #SS$_IVBUFLEN,RO ; Invalid length for rescurce name 
Qooogses'er 77 ose 968 88; ptt SSS RIVBUELEN . 
005C¢ 208 
_ 005C 967 NEW_LOCK: 
Soa 36 Get int t be it d check the lL h 
> ; Get pointer to resource name, probe and check the Lengt 
Bee 3/9 : for legality (0 < Length <= RsBSk_MAXLEN) . 
50 14 AC p00 005C¢ af8 MOVL RESNAM(AP) ,RO ; Get address of resource name descriptor 
0060 97 IFNORD #8,(RO),ACCVIO ; Branch if descriptor not readable 
SA 60 «67D (0066) «(97% mova (RO) R10 : Get Length (R10) and address (R11) 
5A SA O3C C0069) s«975 MOVZWL R10,R10 ; Clear top half of Length 
—E3 13 0Q006C 976 BEQL 2s :; Error, length is zero 
0Q06E 977 ASSUME RSBSK_MAXLEN LE 512 
1F SA D1 OO6E 978 CMPL R10, #RSBSK_MAXLEN : Is length > maximum allowed? 
DE 1A 0071 £979 BGTRU 2 ; Yes, error, length is too big 
te +4 IFNORD R10,(R11),ACCVIO : Branch if string not readable 
0079 oa6 ; Allocate a lock block. 
0079 98 ; NOTE: There is an implicit assumption here (unchecked!) that 
ite ope 3 the minimum size of an SRP is 96 bytes. 
0079 986 ASSUME LKBSK_LENGTH LE 96 
B05 st ASSUME LKBSB_TYPE £€Q LKB$W_SIZE+2 
0979 989 SETIPL #IPL$_ASTDEL ; Raise IPL (to allocate pool) 
50 00000000'GF DE 007 990 MOVAL G*IOCSGL_SRPFL.RO ; ** Combine this and the following 
08 991 ; instruction when loading is resolved 
52 0080 OF 008 838 REMQUE @(RO),R2 : Try lookaside List 
10 1¢ 0087 99 BVC ; Have one 
51 0060 8F 3C 0089 994 MOVZWL #LKBSK_LENGTH,R1 3; List empty - do it the hard way 
50 D4 QO8E 995 CLRL ; No cleanup routine needed 
oer i" Bhoe 44 JSB G*EXESALONPAGWAIT ; Allocate; wait if necessar 
BD 50 € 96 99 BLBC RO,8$ ; None there and resource wait off 
56 52 D0 0099 998 10$: MOVL R2,R6 ; R6 will point to LKB 
08 A6 00350060 BF D0 O009C 999 MOVL #<DYNSC_LKBa16>!- ; Store size and type fields 
A 1000 LKBSK_LENGTH, LKBSW_S1ZE(R6) 
pat 199¢ ; Fill in various fields in LKB 
ry 1904 ASSUME ASTPRM EQ ASTADR+4 
~ 1993 ASSUME LKBSB_GRMODE EQ LKBS$B_RQMODE+1 
7 A6 3 690 ane 1 0 MOVB R3,LKBSB_EFN(R6) ; Store event flag number 
4 A6 re A8 1008 MOVZBW R7,LKBSB_ROQMODE (R6) ; Store req. mode; clear granted mode 
24 46 58 DO OOAC 1009 MOVL R8,LKBSL_LKSB(R6) ; Store LKSB address 


CC OO CC CL Ltt ttt ttt 
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= ENQUEUE/DEQUEUE SYSTEM SERVICES =SEP=1984 02:02:16 VAX/VMS Macro v04-00 Pa 3 
NEW LOCK = New lock request (not convers gro E En o8c 84:93:18 SYS.SRCISYSENQDEQ.MAR; 1 na 23) 
1 MOVL Hee ASTADRCRG? ; Store completion AST address | 
MOVL BLKAST(AP),= ; Store blocking AST address 
LKBSL_BLKASTADR(R6) 
MOVL ASTPRACAP) ,- ; Store AST parameter 
LKBSL_ASTPRM(R6) 
MOVL ties tee ; Store PID 
A6 BS CLRW LKBSW_REF CNT (R6) ; Clear sub LKB reference count 


; Allocate a resource block (RSB). This is done now because the 
; resource name must be san from the getter § buffer to a system 


PTO VGVNAOAOOOAOOOOW 
BF NNN NSS MOP 
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instruction when seating is resolved 


52 00 +4 REMQUE a@(RO),R2 Try lookaside Lis 
1 BVS 15$ 


Soe —rorn- = 
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: one before it is used. is copied right into the 
3; resource block because the common case is that the resource does 
; not currently exist. If we later find the resource, this RSB 
; will be deallocated. 
51 50 AA 9E 0 MOVAB RSBSK_LENGTH(R10),R1 Add length of name to fixed size 
00000020’ GF 3 p1 0 CHP R1 ,G*TOC$GL_SRPSIZE Will itefit in a SRP? 
) 0 
50 Q0000000'GF ODE 0 MOVAL G*IOCSGL_SRPFL,RO xx Combine this and the following 
0 


Didn't get one 


mea 


ae 
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-PSECT LOCKMGR 
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Errors 
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F 
1 
43 8 138: ; Continue building RSB and LKB 
doe 0 ASSUME RSBSB_TYPE EQ RSBS$W_SIZE+2 
oe 0 ASSUME RSBSB-DEPTH EQ RSBSB_TYPE+1 
08 A2 51 3X OOe| ; MOVZWL R1,RSBSW_SIZE(R2) ; Store size of RSB and zero depth 
58 52 00 iF 0 MOVL R2,R8 3; RB will point to RSB 
a 5 ; Copy resource name to RSB and branch to non-paged PSECT. 
57 54 00 OOE 8 MOVL R4,R7 » Save PCB address 
50 a8 68 SA 28 O0E 6 MOVC3 R10,(R11),RSBST_RESNAM(RB) ; RO - RS not valid anymore 
5457 bg OOF 4 MOVL  R7,R4 ; Restore PCB address 
00000255'EF 1 OOF 5 04 40§ : Branch to non=paged PSECT 
SOF 050 15$: ; Need to allocate a RSB from pool because it either won't fit 
bore é ; in a SRP or the SRP List is empty. 
50 se et 9E OOF9 5 MOVAB L“CLEANUP4,RO :; Set address of cleanup routine 
00000000'GF 16 0100 105 JSB Gre XE SALONPAGWAIT : Allocate. Wait if necessary. 
08 8 EB 9106 5 BLBS RO,15$ 3 Have one 
D4 0109 5 CLRL R8 : Error, indicate no RSB to deallocate 
OOOOO2Z4C*EF 17 19 : JMP 27s ; Deallocate LKB and return 
111 5 IF NDF LOADSW 
0000 6 
6 
6 
6 
6 
6 
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F 16 
SYSENQDEQ = ENQUEVE/DEQUEVE SYSTEM SERVICES 1 mitts 99:05:18 AX/VMS Macro Vv04-00 Page 24 | 
- NEW_LOCK = New lock request (not convers 5=-SEP- 252: YS. YSEN ~MAR; 
v04-000 EW_LOc lock ( SEP=-1984 4 SYS.SRCISYSENQDEQ.MAR; 1 (9) | 
44 1067 jeeeeeneeererererereeeeeeeeeeeeeereeeeeeeeeeeeeeeneeeeeeeeeeeeeeeeeerereteee 
44 106 
t } $3 ; CLEANUP3 errors 
50 134 8F 3 44 1071 23$: MOVZWL ip PARNOTGRANT ,RO ; Parent lock not granted 
6 ; D 49 1 4 $: MOVL R3,R6 ; Restore address of LKB 
B 4¢ 107 $: MOVL ; Save completion code 
03 1 4F 1074 BSBW  CLEANUP3 : Deallocate LKB and RSB; then exit 
2EB 1 52 1075 BRW ERROR_EXIT_R11 
Be 8¢8 
-;) oe 4 40$: ; Get parent id and convert to parent LKB if non-zero. If a parent is 
55 107 3 specified get arent RSB address (in R/7) and get resource access mode 
55 1080 ; from parent RSB, Otherwise, R7 = 0 so we get resource access mode 
5 133) ; from argument List (maximized with caller's access mode, of course). 
8 55 (1 Hf ; Note that we raise to IPL$_SYNCH here. After this is performed, 
8 22 SF ; there can be no further references to the caller's address space. | 
55 1085 ASSUME LKBSK_GRANTED GT 0 
55 1086 ASSUME LKBSK_CONVERT EQ 0 
9 22 tt ASSUME RSBSB_RMOD EQ RSBS$W_GROUP+2 
53 56 oO 0 32 1089 MOVL R6,R3 3; Save LKB address 
57 04 0258 1090 CLRL 7 ; Assume no parent RSB 
56 IBA D 8 5A 1091 MOVL PARID(AP) ,R6 3; Get parent id 
2 1 5 1998 EQL ; Branch if no parent specified 
026 109 SETIPL #IPLS$_SYNCH ; Raise IPL 
51 36 DO 0263 1094 OVL 3; Move parent id 
070 30 8 66 1095 BSBW VERLE YPARLOCKD ; Get LKB in R6 and caller's access mode 
DD 50 34 69 1998 BLBC RO,25$ ; in R1. Branch if error 
36 ae 73 0 ¢3 } +4 are LKBSB_STATE(R6) : is perent lock in grant or cvt state? 
3; Ye 
01 E1 § st 1998 BBC #UCKSV_CONVERT,=- s No, but if CONVERT bit is set, then 
CE 28 Ab £3 1100 LKBSW_FLAGS (R65 ,23$ ; it's okay as lock is in a transient | 
76 «1101 3 convert state. Otherwise, error! 
57 50 A6 00 76 1138 43$: MOVL LKBSL_RSB(R6) ,R7 ; Yes, get parent RSB address 
50 4C A? 00 7A 11 MOVL RSB$W-GROUP(R?) RO ; Get parent's group and res. acmode 
4C A6 B6 7E 1104 INCW LKBSWREF CNT (RO) ; Increment parent's sub LKB ref. count 
| ae H 1333 BRE 0$ 
11 $ 45$: ; No parent LKB so get specified access mode and maximize with 
\ 3 3 caller's access mode. | 
50. oc 1119 MOVPSL RO ; Read current PSL 
16~=«CO«&EF 111 EXTZV #PSLSV_PRVMOD,- ; Extract previous mode field 
51 50 02 Wiig At on ia tla RO,R1 
50 2B ac FC 8F 8B A 111 BICB3 #*C<3>TACMODE(APS,RO =; Get specified access mode | 
9 1114 SETIPL #1PLS_ SYNCH : Raise IPL 
50 51 91 93 1115 CMPB RO ; Compare with caller's access mode 
03 1F 36 1116 BLSsu  47$ : Use specified access mode (RO) 
8 1 4 98 111 MOVB R1,RO 3; Use caller's access mode (R1) 
50 10 7? 38 1118 47$:  ASHL #16,R0,RO : Move to bits <16:25> 
OF 11 ? 50$: ; Store parent LKB address or 0 (in R6). Then store cailer's 
SF 11 3 access mode with NODELETE bit set seer ler's access mode is in Rl, 
fF i § 3 resource access mode is in RO <16:25>). 
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SYSENQDEQ = ENQUEVE/DEQUEVE SYSTEM SERVICES “SEP-19 AX/VMS Macro Vv04-00 Pa 25 
v04-000 NEW_LOCK = New lock request (not convers grSF E1382 68: 96: ig SYS.SR 58 YSENQDEQ.MAR; 1 - (9) | 
OF 1124 ASSUME LKBSB_RMOD EQ ACBSB_RMOD 
af 1} 5 ASSUME LKBSM-NODELETE €0 RcBsh -NODELETE 
48 A3 8 43 SF 11 ; MOVL Rg -LkOSL. PARENT (R3) ; Store parent LKB per in new LKB 
26 3 DO OAs 1128 MOVE ; Restore LKB addres 
OB A6 1 0 g A6 11 BiSB3 FLAGS NODEL Te. R1,- 3; Store access mode. tn LKB and set 
AB 1150 res RMOD(R : no delete bit 
55 51 00 rm 1 1 MOVL 3 Move access mode 
AE 11 : ; RO <16: 23> contains resource access mode; RO rs 15> contains 
AE 1134 ; parent's group if there is a parent. R5 contai 
8 AE 1135 ; caller's access mode; R7 contains parent RSB ecdrese or 0. 
8 rt 1} § ; Store composite group number and access mode in RSB. 
Q2AE 1138 ASSUME RSBS$W_GROUP EQ RSBSL_PARENT+4 
ne 173 ASSUME RSBSB_-RMOD EQ RSB$SW_GROUP+2 
51 50 00 AE 1141 MOVL RO,R1 3; Move composite fields 
50 57 00 B1 1146 MOVL R7,RO ; Move parent RSB address 
17 ig 02B4 114 BNEQ 53 : Store if this is a sub-lock 
59 10 6835 0286 1144 BITW #LCKSM_SYSTEM,R9 : Is this a system name? 
07 12 O2B9 1145 BNEQ 3; Yes 
51 OOBE C4 B80 O2BB 1146 MOVW PCBSW_GRP(R4) ,R1 ; Group name - store group number 
0B 11 O2CO 1147 BRB 
. i mS Ce 1148 52$: CMPB R5 ,#PSLSC_EXEC 3; System name - allow without gon if 
06 1B eC 1149 BLEQU 53$ : caller is from EXEC or KERNE 
02C7 1150 IFNPRIV SYSLCK,61$ ; SUPER or USER mode needs privitege 
48 AB 50 7D b5c0 1151 538: MOVQ RO, RSB$L_PARENT(R8) ; Store parent, group, acmode in RSB 
4F AB 5A 90 0201 1138 MOVB  R10,RSBSB_RSNLEN(R8) =: Store resource name Lenght in RSB 
2A AG OBS 0205 1133 CLRW = LKB$W_STATUS(R6) : Clear status bits 
0208 1155 ; See if any special operations must be performed. 
8508 1138 ; The caller's mode is in RS. my PCB address is in R4. 
59 O80 8F B63 § D8 1158 BITW #LCKSM _RECOVER- 3; Any special bits set? 
Q02DD 1159 'LCKSM_PROTECT- 
0200 1160 iLCKS NOQUOTA- 
Q02DD 1161 ghgrone CVTSYS,R9 
yw 63 3 44 1196 BEQL : No 
O2DF 1164 : If RECOVER bit is set. shen yortiy process has privilege to set 
8 : 1392 ; it and if so, also set the PROTECT and NOQUEUE bits. 
OA 59 O7 €1 DF 1167 BBC #LCKSV_ pecover. R9.56$  ; Branch if RECOVER is not set 
A €1 ee 1168 BBC ore SV"RECOVER, = : Branch if no privilege 
4F 24 AG E 1169 abt SiscRa) ) 62% 
0104 8F As EB 1120 BISW nek RAQUEUETLEKSM. PROTECT.R9 ; Set related bits 
44 1128 548: ; If PROTECT is set, then set corresponding bit in status 
06 59 oF E1 ED 1174 BBC #LCK$V =prorect. R9,55$ ; Branch if PROTECT is not set 
see A8& Fi 1175 BSW #LKBSM” PROTECT : Set PROTECT bit is status 
F3 1176 LKBSW "STATUS (RO) 
F7 1128 55$: : If CvTSys is oats then verify caller is from EXEC or KERNEL 
F7 117 3; mode and t arent lock is sy stem owned. [hen also set 
F7 1180 : NOQUEUE A. gy CSTS bits and et ear PID. 
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VE SYSTEM SERVICES -SEP=1984 02:02:1 AX/VMS Macro V04-00 Pa 
lock request (not convers $7 SE obe 36:93:18 SYS.SRCISYSENQDEQ.MAR; 1 ™ 8 


BBC #LCKSV_CVTSYS,R9,57$ ; Branch if CVTSYS is not set 
MOVL K $L_PARENT(R6). 0 ; Get parent LKB address 
BEQL 6 ; No parent 


TSTL Lk $L_PID(RO) : Is parent system owned? 
BNEQ 3; No, grrer 

56$: BISW #LCKSM_SYNCSTS!LCKSM_NOQUEUE,RO ; Set related bits 
CLRL LKBSL_PID(R6) ; Clear PID 
BRB 8&$ 3; Do access mode check 


57$: ; If NOQUOTA is set, then verify caller is from EXEC or KERNEL 
3 mode and set internal NOQUOTA bit. 


BBC oy ccey NOQUOTA,R9,59$  ; Branch if NOQUOTA is not set 
58$: CMPB RS ,#PSCSC_EXEC 3 Is access mode EXEC or KERNEL? 

BGTRU 62$ ; No - error 

BISW #LKBSM_NOQUOTA,- ; Yes, set NOQUOTA status 

wis LKBS_STATUS (RO) 


59$: MOVL PCBSL_JIB(R4) ,R4 


Get pointer to JIB 
DECW JIBSUENQCNT (RA) 


Decrement enqueue count remaining 


BGEQ 8 Quota o 
BRB 67$ ; No quota - error 
FRR ARERR AEE A REAR AAA AAA AAAEAAEARAAAERTREEAARAEES 
3 
5 Error branches and out of Line cide 
ce 


ARAB RAAAASAASLAAALALAASALALESELEAS ESE LESSEE SESE REESE ERE SESE RRR E RRR R SEES RS OB 


; CLEANUP2 errors 


60$: povzuL 2338 _PARNOTSYS R11 ; Parent not system owned 
61$: MOVZWL #SSS$_NOSYSLCK,R11 :; No privilege for system lock 
62$: MOVZWL S*#SS$_NOPRIV,R11 ; No privilege 
648: BSBW CLEANUP2 3 Cleanup 
BRB 
3; CLEANUP! errors 
66$: + S538_AETRYAN ; Retry operation 
67$: MOVZWL #SS$_EXENQLM,R11 ; Exceeded enqueue quota 


68$:  BSBW CLEARUP1 
69$:  BRW — ERROR_EXIT_R11 
; OUT OF LINE CODE 


Cleanup (deallocate LKB, RSB, etc.) 


70$: 


We are stalling some lock requests. RO (low byte) contains 
stall flag. See if this request should be stalled. Stall values 
are: 


-1 Stall all requests 


St 
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SYSENQDEQ ENQU SEP=-1984 AX/VMS Macro Vv04-00 Page 27 | 
v04-000 LOCK = New lock request (not convers 823 P=19 384 88: 98: ig SYS.SRCISYSENQDEQ.MAR; 1 ’ 
: fx ; 3 +1 Stall on ee protected locks (not being recovered) 
! / i ; +2 Stall protected locks and root locks 
17 «#19 } 124 BLSS 74$ 3; We are stalling all requests 
02 be 4 ! tg ne Pp gf? : are we stalling root locks? 
48 Ab 03 H 1044 TSTL LKBSL_ PARENT (R6) : vee, is this a root lock? 
0 1 Hs 1245 BEQL 4 : Yes, stall this request 
sf 59 8 E1 dD 1 rf 72$: BBC #LCKSV_PROTECT,R9,90$ ; Don't stall unprotected locks 
8 59 3 61 124 BBS #LCKSV-RECOVER,R9,90$ ; Don't stall recovering a Lock 
1A COE 93 1 8 BBS srceey VER 3 Don' t stall recovery process, 
DS 24 AG 67 124 CBSL STS(RAD. b6s : return error instea 
01F7 3 6A 1250 74$: BSBW CLEAN ANOP1 ; Cleanup 
0920 1 8 | ! 2) BRw STALL OREG ; Stall this request 
0 g } 38 75$: 3; No lockids. Try extending table 
50 = 0564'°CF 43 6 70 1255 MOVAB W*CLEANUP1,RO ; Address of cleome routine 
944 3 oo 2$ BSBW boesoe IDTBLW ; Try extending table 
12 50 €8 0378 125 BLBS 3; Success 
5B 50 00 Baee 1258 MOVL R R11 ; Failure, move status 
cB 11 37 39 BRB $ : Cleanup 
360 1 61 nin kiki tn aan aha lita can hala 
0380 126 : 
ti } é§ | 3 End error branches and out of line code 
ttt 1265 t penneeebebebdaneebeenbenennsenendennnatheentenemendneeeeseneseerereserese 
0380 126 
tt ! $ 85$: ; Store flags and stall this lock request, if necessary. 
28 AB 659) BO SCO0380 «1269 MOVW R9, LKBSW_FLAGS(R6) ; Store flags 
50 Q0000000'GF 90 0384 1270 MOVB G*CCKSGB~ STALLREQS,RO ; Are we stalling requests? 
C6 12 bane : 4 BNEQ 708 3; Yes 
0 ep ' 73 90$: ; Allocate a lock id and point the id slot to this LKB. 
50 00000000'GF 00 30 1275 MOVL G*LCKSGL_NXTID,RO : Get next lock id 
m7 8 4 1276 BEQL 3; No more - try ex pending table 
51 00000000'GF »D0 96 1277 MOVL G*LCKSGL_IDTBL,R1 ; Get address of een id table. *** May 
039D 1278 ; combine with next instr. if no loading 
30 A6 =650~—Ss«€BO 8 9D 1279 MOVW mo R{DCRON Rt LKID(R6) 3 Store lockid index 
51 6140 pe Al 1280 MOVAL 3; Get address of lockid table entry 
00099000" GF 6 AS 1281 MOVZWL G* fr eks L_NXTID ; Update ptr to next free id 
A602 Al 89 AC 1 $ MOVW cm), keer stRDe (R6) ; Store lockid sequence Cakes 
61 D | : ? MOVL R6, ( (r1) ; Store LKB address in table entry 
4 1285 : Now hash resource name and search hash table for a matching 
? : § 3 name and parent RSB address. 
54 48 A 9 4 1 3 MOVAB ett PARENT (RB) ,R4 ; Point to parent, grou » fesnam, etc. 
SA (C(O ¢ 8 1 ADDL ; Account for paren group, etc. 
1D 1290 BSBW LCKSHASH_ SEARCH 3; Hash and search the se6tl for a match 
72 5 E ‘ 1291 BLBS RO,NEW_RESOURCE 3: Didn't find 
1 38 3; Found one - fall through to ... 
1 188 
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OLD_RESOURCE: 
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: Found a of LKB gs | resource block (RSB). Address of RSB is in RS. 
; Address of LKB is in R6. First deallocate the temporary RSB 

: pointed to it anyone is waitin 

: Cin either the vaait ng queue or the conversion ueue), then 

; this request must also wait. If no one is waiting, then this 

; lock can be granted if it is compatible with the group grant mode. 


MOVL 

JSB eeene SDEANONPAGED ; Deallocate temporary RSB 

MOVL R5,R ; Use R8 from now on for RSB address 
MOVL R8,LKBSL_RSB(R6) ; Store RSB pointer in LKB 


; If this resource is being paneled remotely, then send a remote 
; lock request. Otherwise do it here. 


MOVL RSBSL_CSID(R8) ,R3 ; Get CSID of system mana io this 
BNEQ REM_LOCK 3 resource and branch if S$ not us 


LCKSLOCAL_LOCK: 
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3 “Return here to handle locks localiy after a directory lookup. 
ASSUME RSBSL_WTQFL EQ RSBSL_CVTOFL+8 


-IF NE CAS MEASURE 
INCL G*PASSGL_ENQNEW_LOC 


-ENDC 

MOVAL RSBSL_CVTQFL(R8),RO ; Get address of conversion queue 

CMPL RO, (RO) 3: Queue empty? 

BNEQG 708 : No 

ADDL #8,RO 3; Get address of wait queue 

MOVL RO,R1 3; Save in Ri 

CMPL = (RO), R1 : Is this the end of the queue? 

BNEQ 65$ 3; No 

3; No waiting requests (or RECOVER bit is set); is the lock compatible? 


MOVZBL LKBSB_RQMODE(R6) ,R1 ; Get lock mode 
MOVZBL RSBS$B~GGMODE(R8) .RS Get group grant mode 
BBC R1 OE RSCONPAT “TBLERS),72$ ; Branch if incompatible 


3; Lock can be granted 


BSBW LCKSGRANT_LOCK 3; Returns status in RO 
BRW LCKSSYNC_EXIT 


: pete this_lock if it's in a SCS wait state (anything but 
; LKBSK_WAITING). 


MOVL 
CMPB sepa ghO WAl 
LKBSB CK STATEALEBSL pas 


; Point to Lock 
Is it waiting? 


SYSENQDEQ 
v04-000 
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K = New lock request (not convers mit) 7 §¢:98:18 YOYS SRCISYSENGDEG MAR: 1 me i) 


oc «12 BNEQ 60$ 3; No, skip over it 


~“N 
oS 
Fr 


; Request cannot be granted due to other locks in the waiting 

; or conversion queue ahead of us. If RECOVER bit is set, 

; then ignore these waiters and try granting anyway. 

DD 59 O07 €0 BBS #LCKSV_RECOVER,R9,62$ ; Branch if recovering a lock 

72$: ; Request cannot be granted due to other waiters or incompatibility. 
; The request gets queued unless the user requested that it not 

; be queued if it cannot be granted. 


9 1354 
Bi 
Bi 
10 1389 
10 1360 
14 1361 
14 4 6 
14 136 
12 1368 
0D 59 O02 €0 14 4 06 BBS #LCK$V_NOQUEUE,R9,80$ ; Br. if request should not be queued 
54 00000000'GF BO 18 136 MOVL  G*SCHSGL_CURPCB,R4 ; Get PCB address 
03A 3 1F 1368 BSBW LCKSQUEVEWAIT : Insert lock on wait queue, etc. 
00D 31 g } $3 BRW LCKSQUEVED_EXIT ; Exit system service 
5 ! 4 80$: ; Request is not to be queued. Clean up and return status in RO. | 
5B 0988 8F 3¢ 2 1 rg MOVZWL #SS$_NOTQUEUED,R11 ; Status 
00E0 31 5 1328 BRW LCKSNOT_QUEUED 
| 
D 1376 REM_LOCK: 
4 137r ; Send this lock request to another system 
| 
00000000'"GF 17 bee tt JMP G*LCKSSND_LOCKREQ : Send remote lock request 
ett 138) ; Possible return entry points are: | 
0433 1383 : LCK$LOCAL_LOCK Handle request here after all 
0433 1384 3 LCKS$SYNC_EXIT Lock request was granted 
0433 1385 : LCK$QUEVED_EXIT Lock request was queued | 
0433 1386 ; LCKS$NOT_QUEUED Lock request was not queued 


M 16 
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v04-000 NEW_LOCK = New lock request (not convers S7$EF 71982 68: 95: ig toys. SRS ENQDEQ.MAR; 1 . diy 
4 1 -1F NOF LOADSW 
000004 1 83 -PSECT LOCKMGR 
4 1390 e ENDC 
4 1391 
4 1 35 NEW -RESOURCE : 
? } 87 ; Resource does not exist, so create it. Register usage is: 
4 1395 ; R6 Address of LKB 
4 1 38 : R? Address of percent RSB (or 0 if no parent) 
7 : ab s Re Address of RSB being created 
8 173) : R11 Address of last RSB in hash chain 
36 «690 0433 1401 85$: MOVB #DYNSC_RSB 3; Store type field 
OA AB 043 140¢ RSBSB_ TYPE (RB) 
50 A6 «658~—séiOD ot 1287 MOVL RBC LKBSL_RSB(R6) 3; Store RSB pointer in LKB 
0438 1405 : sneer’ RSB into hash chain, R11 points to previous entry 
Bete 1406 ; which was, until now, the last one in the chain. 
68 58 D0 0438 1408 MOVL er ma ioty tt hl Make previous entry point to this one 
68 D4 O43E 1409 CLRL Reaes HN(R8) This one now ends the chain 
04 a8 5B 00 pene 1919 MOVL R11 ete CHSHCHNBK (RB) : Back pointer points to previous one 
pete 1316 ; Fill in remaining fields in RSB 
0444 1414 ASSUME RSBSW_REFCNT Fa RSBSL_VALSEQNUM+4 
0444 1415 ASSUME Rsesu_ “BLKASTCNT EQ RSB$W_REFCNT+2 
0444 1416 ASSUME RSBSL-CVTQFL EQ RSBSL_GROFL+ 
0444 1417 ASSUME BSL_WTQFL SBSL_CVTQFL+ 
0444 1418 ASSUME RSBSB_CGMODE EQ RSBS$B_GGMODE+1 
Reee es ASSUME RSBSW_ STATUS EQ RSBSB_ CGMODE+1 
50 10 AB DE 0444 1421 MOVAL Reest _GROFL(R8) ,RO : Initialize all three queue headers 
51 50 D0 0448 14 § MOVL 
81 50 DO 0448 14 MOVL ; Granted queue 
81 80 7E O44E 1424 MOVAQ RO, (Rt (R14 
81 50 DO 0451 1425 MOVL RO, (R1)+ 3; Conversion queue 
81 80 7E 0454 1426 MOVAQ (RO)+,(R1)+ 
81 50 00 0437 1427 MOVL RO, ¢ cRi+ : Waiting queue 
61 50 be 45A 1428 MOVL RO, (R1) 
28 AB 7C 045D 1429 CLRQ RséSa _VALBLK(R8) ; Clear value block 
0Aa8 7C eh 1430 CLRQ RSB$Q “VALBLK+8(R8) 
3¢ AB SO 7C B39 1431 CLRQ RSBSL_VALSEQNUM(R8) : Clear value block sequence number, 
. 466 14 § 3: sub-RSB reference count and 
466 14 : blocking AST count 
0c 7 D4 0466 1434 CLRL RSB$B_GGMODE (R8) ; Clear modes, status 
46 A B4 ret 1? 5 CLRW RSB$W_RQSEQNM(R8) ; Clear req. seq. number 
46C 14 $ ; If there is a parent RSB then incr. sub-RSB reference count 
rt; 1 3 ; and check for maximum depth of resource name tree. 
57 DS 046C 1440 TSTL R7 ; Is there a parent? 
63 13 rf 4 1441 BEQL 90$ ; No parent 
0B A7 1 81 064 1776 ADDB3 #1,RSB$B_DEPTH(R7) ,- ; Our depth is 1 more than our 
08 ag 474 144 RSBSB_DEPTH(RB) : parent's depth 
A 91 9476 1444 CMPB RSB$B_DEPTH(R8) ,- ; Is our depth equal to 


B 1 
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SYSENQDEQ =~ ENQUEVE/DEQUEVE SYSTEM SERVICES =SEP-1984 02:02:1 AX/VMS Macro V04-00 Page 
Vv04-000 NEW_LOCK = lock request (not convers iets §6:93:18 SYS.SRCISYSENQDEQ.MAR; 1 i) 
00000000 ' GF 479 * etee enaadiia 3; maximum allowed? 
9 1 47 BGEQU 8 ; Yes - error 
40 A B 4 INCW RSBSW_REFCNT(R7) ; Increment parent's sub RSB ref. count 
H A? (OD 4 MOVL RSBSL_CSID(R7),=- ; Our parent’s CSID becomes 
AB 4 : Bgget.SiD(RS) ; ours also 
cf 1 4 BEQL 9 ; Resource is managed here 
53 3BA Dd 48A MOVL RSBSL_CSID(RB),R3 ; Get CSID of destination system 
9D ! 4 H¢$ BRB REM _LOCK ; Resource is managed by another system 
0071 1 $3 8$: BRW DEPTH_ERROR 
49 90$: ; This resource has no parent. Send lock request to appropriate 
49 ; directory syetes. If this system is the directory system for this 
rh ; resource, then turn RSB into a directory entry 
53 00000000'GF 0 49 MOVL GL CKSEL_DIAVEC RS :; Get address of directory vector 
| em | 49A BEQL 93 ; No vector, we are dir. Sys. 
51 44 A 3¢ 49C MOVZWL RSBSW_HASHVAL(R8) ,R1 ; Get hash value 
5 be 4A CLRL ; Clear high order hash value 
|}. 3 Si. Fea B Q4A EDIV - g{B3) R1,R0,R1 ; Remainder in R1 
3 6341 DO O4A MOVL (R3)CRI4, :; Get directory system CSID 
38 AB «8653)0—=— DO s«Q4AC 93$ MOVL 3 RSBSL_CSID(R8) :; Store it in RSB 
ee bee BNEQ 87§ ; Not us - do a directory lookup 
01 A 4B BISwW #RSBSM_DIRENTRY,=- 3; Set directory entry bit 
OE AB O4B4 RSBSW_STATUS (RBS 
51 34 A 9A Bebe 95$: MOVZBL LKB$B_RQMODE(R6) ,R1 ; Get requested lock mode 
015 30 04BA BSBW LCKSGRANT_LOCK_ALT i Grant lock 
00000002 


= 
Oo 
— 


.1F NE CA$_MEASURE 
te G*PASS$GL_ENQNEW_LOC 


LCKSSYNC_EXIT:: 
; The request has been satisfied synchronously. Status is already 
; in RO and LKBSL_LKST1. Insert the lock onto the head of the 
; lock List in the PCB (unless it's a system lock) and store 
; value block, if specified. 
3; Note: Conversions should not use this exit path as they are 
; already on the PCB's Lock List. 


ASSUME LCKSV_VALBLK £Q 0 
TSTL LKBSL_PID(R6) 


QO000000'GF D6 


fo lolelelolelealamlolelolo) 
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OC A6 Is this a system owned lock? 


D ; 
0D 3 BEQL 10$ : Yes, don't insert onto PCB queue 
54 00000000'GF 00 MOVL G*SCHSGL_CURPCB,R4 3; Get address of PC 
4 OE INSQUE LKBSL_OWRGFL (ROS - 3; Insert lock at head of process 
0104 ch PCBSL~LOCKQFL (R45 ; lock list 
2359 =«9 10$: BLBC R9,LCRSNORET_VALBLK ; Branch if no value block 


LCKSRET_VALBLK:: 
; Store RSB's value block in caller's value block, store LKSB, 
3; and return, Status is already in RO and LKBS$L_LKST1. 
; However, if the value block is marked invalid, then we will change 
; the status in LKBSL_LKST1 to SS$_VALNOTVALID. 


SETIPL #IPLS_ASTDEL ; Lower IPL to write in 


ca 
; address space but still 
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ock request (not convers §78 Pa} 98e $4 :95:18 Leys SRCISYSENGDEG MAR: 1 ° (11) vO« 
BITW Hd to VAL AYER - : Is value block valid? 
RsB W_ STATUS (RBS 
BEQL : Yes 
MOVW #SS$ VALNOTYAL 10 .= ; No, change completion status 
LKBSC_LKST1(R6) 
MOVL LKBSL_LKSB(R6) ,R1 ; Get LKSB address 
OVO LKBSLILKST1(R65,(R1)+ : Store LKS 
MOVQ RSB$Q_VALBLK (RBS (R1)+ ; Copy RSB value block to caller's 
MOVQ §$RSBSQ-VALBLK+8(R8),(R1)+: value block 
RET ; Return 
LCKSQUEVED_EXIT:: 
; Come here if request was queued. 
MOVZWL S*#SS$_NORMAL ,RO ; Indicate it was queued successfully 


LCKSNORET_VALBLK:: 


; Exit service with status in RO. Copy contents of internal 
3; LKSB to the caller's LKSB. Remember, once IPL is lowered to 0 
; the LKB can be instantly deleted out from under us. 


SETIPL #IPLS_ASTDEL ; Lower IPL to write in caller's 
; address space but still block ASTs 
MOVi LKBSL_LKST1(R6),- ; Store contents of LKSB 
@LKB$C_LKSB(R6) a 
3; Return 
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~SBTTL Error Handling for $SENQ 


++ 
FUNCTIONAL DESCRIPTION: 
This routine performs the error handling for the SENQ system 


4 1 
£1838 
4 1534 ; 
4 1535; 
504 1 § ; 
504 1 : 
504 1 8 3 service. This routine has a number of entry points, depending 
504 1 3 on what the error is. Each error entry point backs up the 
504 1540 ; operations performed thus far. Consequently, the order of operations 
504 1541 ; in this routine must be exactly the reverse of the order of 
2 2 1348 ; operations in the SENQ system service. 
82 4 1544 ; CALLING SEQUENCE: 
0504 1545 ; 
0504 1298 3 Branch to error entry point. This routine returns from the system 
Bebe 1547 ; service. The entry points named CLEANUPx are cailed with a BSBW 
0504 1548 ; and BSey return to the caller. Then the appropriate ERROR_EXIT 
0504 1549 ; may be branched to. 
0504 1550 ; 
Bane 1551 ; INPUT PARAMETERS: 
0504 1326 : 
0504 1553 ; RO Completion code (some entry points) 
0504 1554 ; R6 Address of LKB (some entry points) 
Bane 1555 ; R8 Address of RSB (some entry points) 
0504 1556 ; R11 Completion code (some entr potnts) 
o20% 1322 3 Address of previous RSB (DEP H_ERROR entry point only) 
be04 1559 ; OUTPUT PARAMETERS: 
0504 1560 ; 
0504 1561 ; RO Status code 
Babe 1306 ; 
be 15635 ; COMPLETION CODES: 
0504 1564 ; 
0504 1565 ; SS$_ACCVIO Access violation (on LKSB or resource name) 
0504 1566 ; SS$_BADPARAM Bad lock mode 
0504 1567 ; SS$_IVLOCKID Invalid lock id 
Babe 1568 ; SS$_CVTUNGRANT Attempted to convert an ungranted Lock 
0504 1569 ; SS$_PARNOTGRANT Parent lock not granted 
0504 1570; SS$_NOSYSLCK No SYSLCK privilege (needed for a system lock) 
0504 1571 ; SS$_IVBUFLEN Resource name Length = 0 or > 31 
0504 1376 ; SS$_INSFMEM Insufficient dynamic memory 
0504 13 3 SS$_EXASTLM Exceeded AST quota 
504 1574 ; SS$_EXENQLM Exceeded enqueue quota 
2h 1575 ; SS$_NOTQUEVED Request was not queued 
3 ? 1326 3 SS$_EXDEPTH Exceeded allowed depth of resource name tree 
504 1398 ; SIDE EFFECTS: 
504 132? ; 
504 1580 ; None 
504 1581 ;-- 
504 15 § 
504 1 ~1F NDF LOADSW 
00000504 1584 -PSECT LOCKMGR 
é 4 1585 -ENDC 
4 1 § 
504 1 -ENABL LSB 
504 1588 
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st peat 
QOO000000'GF OD 
58 04 

50. 30 3¢ 

51 Q0000000'GF 00 
51 6140 ODE 

£1. 00000000'GF 860 
02 32 A6 «601 AI 
06 iC 

02 Al 01 BO 

Q0000000'GF 50 00 

24 = 10 

50 5B 00 

50 DD 

54 Q0000000'GF 00 

51 60 A4 

53. 04 AC 9A 

00000000'GF 16 
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mere and deallocate gets LKB sng) 
Bt "se nts to previous RSB in hash chain. 


SHCHN(R11) 
DEPTH,R11 


ed 


$B from 
(R8). 
CLRL RSBSL_H 
MOVZWL #3s8. Ex 
BRB 108 


i DEPTH_ERROR: 

‘ Remove R 

; and RSB 

; End hash chain one RSB earlier 
3; Store status 


LCKSNOT -QUEUED 


; Beal iocate lock id. LKB address in R6, status in R11. 


-IF NE CAS_M ab SURE 
INCL G*PASS$GL_ENQNOTQD 
eENDC 
CLRL R8 ; Indicates no RSB to deallocate 
10$: MOVZ2WL LKBSL_LKID(R6),RO ; Get lock id index 
MOVL “LCKS 15 TEL RI ; *** Combine with next instr. 
MOVAL (R1)CROJ,R1 ; Point to table ent ry 
MOVW G*LCKSGL_NXTID,(R1) : prere next id in this id's slot 
ADDWS = #1 LKBSLILKID+2(R6) ,2(R15 ; Incr. and store sequence number 
BvC $ : Didn't overflow to a system address 


MOVW “4 ,2(R1) $ overt iauee - restart seq. muaher at 1 
20$: MOVL RO Z SULCKSGL -NXTID ; This id becomes the next o 
BSBB Ss CLEAN : Cleanup (puts PCB address in R4) 


ERROR_EXIT R11: 


R11,R0 Move status to RO 


ERROR a RO: 


; Everything has been cleaned up; status is in RO. Set event flag 


3 and exit 
SETIPL #IPLS_ASTDEL ; Lower IPL 
PUSHL RO ; Save status 
MOVL G*SCHS$GL_CURPCB,R4 ; Get $05 address 
MOVL PCAs PIB(RG) Ri ; Get PID 
MOVZWL #PRIS RESAVL ; Get prvertey increment class 
MOVZBL EFN(A ; Get event flag 
JSB G°SCHSPOSTEF S Set event fleas 
POPL RO ; Restore status 
RET 
3 csoenae subroutine. This subroutine has various entry points which 
3; are led depending on how much cleanup ‘s required. 
: Inputs: 
: Rs Address of LKB 
: R Address of RSB or 0 to indicate no RSB 
: Outputs: 


RG Address of PCB (CLEANUP! entry point only) 


PEAAAAAAA AAPA AAO MINE FEE EEE EEE EWI MOO OOOODODOOOOD 
FS SS SSS SSA WO UUUNnnooom SUD POON OOO CODORREE 


DEAN 299 OD NIDA NEV @ OOO NA UNE WIN O OO NA EWI @ OOO NAN E WWI OO ODNOAUE 


PPPS FAA ANANNIGPNIDIPINIPINPINIDS 2 9 YS MODODOOOCOOOWOOOOOONO 


a ee ee ee a a a a a 
PDQ PAAPAAAAAAAA AAA AAAAA AA AAA AAA AAA AA AAA AAA AOA AAA MIMI NNIVI 


PUPP PVPS PUPP PUPPET I 


SY’ 


= ENQUEUE/D ~y . Bi, SERVICES” ' 1 mi iat 96:05:16 yaxeves Macro V04-00 Page 


WI 


OOOO YM MMMM COO NW WANA TF  COCICOCIOOUNIOS DW & 


Abe Ade hb Ab Ab db db db db Ab Ab db db db Ab db db db dh Ab db hb db db dh dh db db db db deb dl 
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rn CLEANUP1: 
; Increment enqueue count (if it was charged) 


MOVL G*SCHSGL St ad R4 ; Get PCB address 


CLEANUP4: 
; Deallocate LKB. R6 contains LKB address. 


a a kk a 
DARREL AAAAAAA AA AAA AAA AA AA AAA AAA AO 


4 
Pr: 
50 BBS euneey NOQUOTA * Branch if no quota was charged 
5 “STATUS (RE CLEANUP2 
5 M BCBSL J IBCR4) ,RO ; Get address of JIB 
27 INCW JIBSW “ENQCNT (RO) : Increment enqueue count 
55 CLEANUP2: 
2$ ; Decrement parent LKB's sub LKB reference count. 
38 MOVL LKBSL_PARENT(R6) ,RO ; Get parent LKB address 
5 BEQL CLEANOP3 ; No parent 
60 DECW ac eee ner cer (RO) ; Decrement parent's sub LKB ref. count 
o BLSS 0$ ; Ref. count went negative 
86 CLEANUPS: 
64 : Deallocate RSB. R8 contains RSB address or 
ri ; 0 indicating no RSB to deallocate, R11 contains status. 
8 MOVL R8,RO ; Address of RSB 
68 BEQL CLEANUP4 : No R 
+ JSB G*EXESDEANONPAGED ; Deallocate it 
4 
48 
74 MOVL R6,RO ; Address of LKB 

75 138 G*EXESDEANONPAGED ; Deallocate it 

pak Shae 

78 90$: BUG_CHECK LKBREFNEG, FATAL 

79 -DSABL LSB 
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~SBTTL LCKSHASH_SEARCH = Hash resource and search hash table 


;++ 
; FUNCTIONAL DESCRIPTION: 


This routine hashes the resource name and parent RSB address 
and then searches the hash table looking for a RSB with 
matching: 
Oo resource names 
© parent RSB addresses 
© access modes 
© mame spaces (system or group) 
© group numbers 
Resource name length, access mode, name apace and group number 
are all collected into one longword to make the comparison easier. 


The entry point LCKSSRCH_HSHTBL just searches the table using 
a supplied hash value. 


; CALLING SEQUENCE: 

BSBW LCKSHASH_SEARCH (Hash resource and search table) 

BSBW LCK$SRCH_HSHTBL (Just search hash table) 

(Note: IPL must Be at IPL$_SYNCH) 

; INPUT PARAMETERS: 

R1 Hash value in low-order 16 bits (LCKSSRCH_HSHTBL only) 
High order 16 bits must be zero 

RG Address of parent RSB field (see following ASSUMEs) 

R10 Length of resource name + 8 

; IMPLICIT INPUTS: 


et resource's parent's hash value is used to compute this hash 
value. 


; OUTPUT PARAMETERS: 
RO 0 if match found 
1 if no match found 
R5 Address of poten ag RSB if a match was found 
R11 Address of last entry in hash chain if no match found 
; IMPLICIT OUTPUIS: 


RSBS$W_HASHVAL is stored with the hash value for this resource 
(LCKSRASH_SEARCH entry only) 


; SIDE EFFECTS: 
RO - R3 destroyed 
; NOTES: 


This routine depends on the following fields being adjacent 
in the RSB. 


H 1 
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v04-000 LCKSHASH_SEARCH = Hash resource and sear eet 7 §4:93:18 SYS.SRCISYSENQDEQ.MAR; 1 
a 
C 174 ASSUME RSBSW_GROUP EQ RSBSL_PARENT+4 
oe 1% ASSUME RSBSB_RMOD EQ RSB$W_GROUP+2 
C 174 ASSUME RSBS$B_RSNLEN EQ RSBSB_RMOD+ 
23 ft? ASSUME RSBST_RESNAM EQ RSBSB_RSNLEN+1 
286 1745 IF NDF LOADSW 
0000059C¢ 1708 -PSECT LOCKMGR 
33¢ Ve -ENDC 
23 Va LCKSHASH_SEARCH:: 
59C¢ 152 ; Zero pad resource name to a longword boundary and get # of 
23 1736 ; longwords in resource name plus parent RSB, group, etc. 
53 SA FE 8F re 59C 1754 ASHL #-2,R10,R3 ; Divide size by 4 
2 6} SA1 1755 DECL R : Account for parent address 
50 SA FFFFFFFC 8F & 5A3 1038 BICL3 #*C<3>,R10,R0 : Get remainder from 4 
we SAB 175 BEQL 40$ ; Branch if multiple of 4 
51 644A 9E OSAD 1738 MOVAB (R4)CR10),R1 3; Get address of end of name 
.) 94 0581 1759 308: CLRB R1)+ ; Clear to next lonqword boundary 
FA 50 4 F2 583 1760 AOBLSS #4,R0,30$ 
53 (6 ert4 179) INCL R3 ; R3 = # of Longwords in name 
0589 1588 ; Fold resource name and auxilary fields into a single 
F394 1788 ; longword. R3 = number of longwords to combine. 
51 04 AS CODE $283 1796 40$: MOVAL 4(R4),R1 ; Pointer to GROUP field 
52. D4 3280 17 CLRL ; Initialize result reg. 
52 81 CC OQSBF 1708 45$: XORL (R1)+,R ; XOR next longword 
52 52 9 of ate 178 ROTL HO R 3; and rotate 
F653. «FS «(05C6 «(1770 SOBGTR R3,45$ : Repeat 
50 64 06 5¢9 (1771 MOVL  (R4),RO : Get address of parent RSB 
046 ~=«1 5cCc Ha; BEQL 50$ 3 arent 
8 44 AO AC 5C 177 XORW RSBS$W_HASHVAL (RO) ,R2 ; KOR parent's hash value 
52 a53F1987 BF C& O5D2 1774 50S: MULL og AaSF gO? Re 3; Multiply by unusual number 
a ORS 44 1003 ROTL #16,R2,R2 ; Swap words 
50D 1599 ; Have composite resource name and parent hash value in 
50D 1078 3; the low order word of R2. Store it in the RSB_ and then 
20D 172) 3 convert it to a hash table entry address (in R5). 
FC AG 2g RO 5DD 1781 MOVW R  RSBSU_HASHVAL “RSOSL PARENT (R4) ; Store hash value 
51 C 3E! 7 é MOVZWL R2,R ; Clear high word and move to R1 
3E2 1784 LCKSSRCH_HSHTBL:: 
2k6 \f 5 ; Hash value is in low word of R1. High word must be zero. 
51 51 00000000 ' GF 7 Ay 17 § ASHL G*LCKS$GB_HTBLSHFT,R1,R1 ; Shift to get hash table index 
50 00000000'GF dO OSEC 17 MOVL GeLCKSGL HASHTBL .RO : #ee Combine with next instr. 
55 6041 ODE Fs iy MOVAL (RO)CRIJ>RS ; Get address of hash table entry 
a 17 ; RS = hash table en ry address. Search hash table looking for 
F? 17 § 3; @ resource block with a matching resource name, parent RSB, 
re i ? 3 access mode, name space (system or group), and group number. 


syaenggee ENOUEUE/OERUEUE SYSTEM, SERVICES 4 64, NESERTIRES QQOB:IE. YANG Macro oe-op ., Page 8.) 88 


ASSUME RSBSL_HSHCHN EQ 0 


R5,R11 ; R11 vit! point to previous entry and 

(R5), R5 ; he gt point to abut RSB in hash chain 
5 in = resource not f 

R10, RSBSL_PARENT(RS), cros § yy the names the same? 

60$ : No, but t keep looking 

; Yes, found a match; 920 = 0 from CMPC3 


#1,R0 ; No match found 
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- Grant a lock request SEP- SYS.SRCISYSENQDEQ.MAR; 1 (14) 
-SBTTL LCKSGRANT_LOCK = Grant a lock request 


++ 
FUNCTIONAL DESCRIPTION: 


This routine porseres the actual granting of a lock. This includes: 
o Computing the new group grant mode 
) ansecting the LKB on the granted queue 
he event flag (i 
o Delivering the completion AST (if ee pt 
re 


This routine gets called for both synchronous grants (in the context 
of the process requesting a lock) and asynchronous grants (in the 
context of another process that has just performed a dequeue or 

a conversion to a lower lock mode). 


The alternate entry point LCKSGRANT_LOCK_ALT is used when the caller 
enous that there are no granted locks (or waiting conversions) for 
$s resource. 


: The entry point LCKSREGRANTLOCK is used to regrant an attempted 
3 conversion that was put on the conversion queue and then taken 
; off due to deadlock. Note that in this case the LKBSM_ASYNC 
3 bit must be set (even though we might be completing the request 
; S eeorenesety? in order to execute the code that moves the lock from 
3 the tail to the head of the PCB lock queue. 

: The QUEUE_AST entry point is used to just queue an AST when 
; dequeuing an ungranted lock (abort or deadlock). 

: CALLING SEQUENCE: 


BSBW LCKSGRANT_LOCK 
Note: IPL must be at IPLS$_SYNCH 


INPUT PARAMETERS: 
ALL entry points: 


OOOCOSGSOCOOCOOCOOOOOOSooO 


PDDQRDPDPPAEDPPAAAAA AAA A AAA AAA AAA AA AAA AAA A AAA A AAA AOAO AOA 


R1 Lock mode to gree 
Re Address of LK 
R Address of RSB 


PPP PEE PWIA IROPOPIPOPIPINIPN) 2 2 2 OOO 


AR OOD NAUE URI @§O OOO NA UE WIN @ OOD NAME WN OO OD NAUE WN OOD NOUE WN O0Oan 


LCKSGRANT_LOCK: 

; R5 Existing group grant mode 
; IMPLICIT INPUTS: 

LCKSREGRANTLOCK and QUEUE_AST: 


LKBSL_LKST1 contains final completion status 
Also fhe LKBSM_ASYNC bit must be set 


DE 
LO 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
} OUTPUT PARAMETERS: 


9.090909 09.09.09 09.09 09 0d G9 0D 0D 09 0 09 OD OS C9 OD 09 C9 0d Cd OD Cd CD CD Cd CD Cd Cd OD GD C9 0D Cd GO CD 00 Cd CD CD CD. GD CD. CD CD CD CD OD CD OD 0DCD0D 


SB GD GB GD OD OS GD OD GD GD WD GD OD OD DW WD DW OD DW DW DW OD DD DD DDD DD DO DDD DOD Bo Doo ooo wo 


DOO MIINIUIIUIUIUIUNU) 


ee ee SS eae 


K 
SYSTEM SERVICES 


SYSENQDEQ = ENQUEVE/DEQUEUE 16-SEP-1984 02:02:1 AX/VMS Ma 04- 
vou-000 LCKSGRANT_LOCK = Grant a lock request ~$Eb= 1382 §4:93:18 SYS  SRCISYSENODEG RAR: 1 agi (fay 
: } ? ; LCKSGRANT_LOCK and LCKSGRANT_LOCK_ALT: 
B 1 : R Request completion code 
: } $ : RS New group grant mode 
: § 3 IMPLICIT OUTPUTS: 
8 ; LCKSGRANT_LOCK and LCKSGRANT_LOCK_ALT: 
é 4 ! Y ; SS$_WORMAL is stored in the ist longword of tiie LKSB 
: {3 ; COMPLETION CODES: 
B 1 58 ; SS$_SYNCH Synchronous completion 
tie} ! oe ; S$S$_NORMAL Normal completion 
ste p ; SIDE EFFECTS: 
60B 1 : : R1 = R4 are destroyed 
$0B 1884 
oes 1885 -IF NDF LOADSW 
00000608 1 § -PSECT LOCKMGR 
$608 : 8 alibi 
rte 1889 -ENABLE LSB 
608 1890 
55519 a 1392 CCRSGRANT LOCK: A as Should there b de? 
3; Sho ere be t 
08 18 9605 1 $8 BLEQU 108 (ie ie ey eer eee 
610 1895 LCKSGRANT_LOCK_ALT:: 
0c a 51 90 0610 1 36 mOvVB R1,RSB$B_GGMODE (R8) ; Yes, store group grant mode 
5 51 DO 0614 189 MOVL R1,R5 3 and in R 
OD AB 51 90 tts : a MOVB R1,RSB$B_CGMODE (R8) ; Store conversion grant mode 
35 A6 «651 90 0618 1900 108: MOVB R1,LKB$B_GRMODE (R6) 3; Store granted lock mode 
01 3C O61F 1901 MOVZWL $*#SS$_NORMAL,- 3; Store success in LKSB 
2c Ab 621 19 : LKBSL_CKST1(R6) 
° 1307 LCKSREGRANTLOCK:: 
6 1905 3; Determine if this request wants a blocking AST. If yes 
6 19 $ 3 then increment blocking AST count in RSB and determine if we 
é 190 3; are blocking anyone. 
1308 ASSUME RSBSL_WTQFL EQ RSBSL_CVTOQFL+8 
20 46 D é 1343 TSTL LFESL BLEASTARR (RS? ; Blocking AST address specified? 
1 $ 1316 BEQL 0 3 No 
42 A B6 ° 131 INCW RSB$W_BLKASTCNT(R8) ; Incr. blocking AST count 
52 186A D B 1914 MOVAL GaP th eV TOPLAS) Re ; Get address of conversion queue 
D 62F 1312 MOVL #2,R ; Do this loop twice 
: 6 i) 1319 15$: MOVL R2,R3 ; Save address of queue header 
: D 1918 20$:  MOVL (RS)_R3 : Get address of next element 
5 2 01 6 191 CMPL = R2 RS : Is it the header? 
1A 13 1920 Bea. 25$ : Yes, done with this queue 


4 
SYSENQDEQ = ENQUEUE/DEQUEUE SYSTEM SERVICES 16-SEP-1984 02:02:16 VAX/VMS Macro V04-00 Page 42 SY 
v04-000 LCKSGRANT_LOCK = Grant a lock request ~$Eb= 1 38e §6:95:18 Leys. SRCISYSENGDEG MAR: 1 . (14) vO 
54 FC A3. 9A MOVZBL LKBSB_RQMODE-LKBSL_SQFL(R3),R4 ; No, get requested lock mode 
ED F9B9 CF44 3 E BBS Ri -LCESCOMPAT Tat tRed, O$ ; Br. if ompatible 
2A a6 OA A BISW #LKBSM BLKASTOED!- ; Set blocking AST queued and 
LKBSM_DBLKAST,LKBSW_STATUS(R6) ; deliver blocking AST status 
10 88 BISB aLKBSA PKAST,= 3 Set piggyback kernel AST bit 
9 Ab LKB$B_RMOD(R6) 
Py dO MOVL LKBSL_BLKASTADR(R6),- ; Store address of blocking AST routine 
10 A KBSL AST (R6) 
11 BRB ; Search no more 
52 3 258: ADDL a RG 3; Advance to wait queue 
DS F SOBGTR RO,15$ 3; Repeat 


SGRANT_REM: : 
: ; Set state to granted and insert on granted queue. 
3; Determine if a completion AST should be queued. 
INSQUE LKBSL_SQFL(R6),=- ; Insert lock on granted queue 


MOVB #LKBSR 


5 


om 
AX 


Indicate lock is on granted queue 


DPE DPPRAAAAAA AA AA AAA AAA O = 


PPP QEQD GAs & 


GSOHLMOV FFF 9S F NUVUWOMOOo—-o 


w —w 
oC oo 
Por, 
oa 
“o SOS 
om 
OOOOOCOOOGOSOOOSOSOOOCOOSOSOSOSOSOSOOOOOOOSOOSOOOSOOoO 


PAAARAAA AANA AAA AE BE EEE EWN AAA AAOROPOPOPINOFONIND EC 


135 
1 
1 
1924 
: 
1388 
: 
: 
13 
1934 
HE 
HH 
Be 
1941 
50 0689 8F 3 19 ¢ MOVZWL #SS$_SYNCH,RO 3; Assume synchronous completion 
10 B83 0668 19 BITW #LKBSM_MSTCPY,- ; Branch if this a 
2A Ag 66D 19 4 ns LKBSW_STATUS (R6) > master copy 
06 «6B 71 19 § BITW #LKBSM_ASYNC,- :; Branch if this request is being 
2A AG : ye 12 iit: LRGSU_STATUS(RG) 3 completed asynchronously 
08 8B 677 19 § BITW #LCKSM_SYNCSTS,=- : Branch if SYNCSTS bit is set 
OM 12 HER 1 anea Bagh tans 
67D 19 
1C A6 b 67D 19 : TSTL LEBSL, CPLASTADA CRE? ; Did caller specify a completion AST? 
” ee tt 1954 BEQL 0$ : No, just set event fla 
3E=O si ent 4 5 BRB 50$ ; Yes, set appropriate bits 
? r 1° : 35$: ; Come here if the lock is a master copy 
04 B63 oh 19 5 BITW #LKBSM_ASYNC,- ; Branch if this request is being 
2A A6 13 ° § i 9 ace LEBSW_STATUS (RO) 3; completed synchronously 
DD O68A 19 § PUSHL R5 ; Save group grant mode 
eeeemeed 16 Q068C 19 JSB G*LCKSSND_GRANTED : Send a granted message 
5 BED) g i : 375 pene R5 3; Restore it 
696 19 J 
696 19 : 40$: ; The request is being completed asynchronously so it is necessary 
238 1308 3; to remove the lock from its current position in the PCB queue 
2 138 ; (around the tail) and reinsert it at the head of the PCB queue. 
54 oc A6 «3 $96 1371 MOVZWL LKBSL_PID(R6) ,R4 ; Get process index 
50 00000000'GF 0D 9A 1 te MOVL  G*SCHSGL_PCBVEC,RO ; ses Combine this and next inst. when 
1 13 : PIC code is no longer needed *** 
54 044 0 Al 1974 MOVL (RO)CR4),R4 ; Convert to PCB address 
ay 4 Ag OF A 1975 REMQUE LEBSL OWNQFL(R6) ag : Remove lock from PCB lock queue 
0104 C4 «6 E "2 1308 INSQUE (R ) PCBSL_LOCKQFL R4) ; Insert at head of lock queue 


SYSENQDEQ 
v04-000 


52 
00000000 ' GF 


oF 


1 
§ MOVZBL #PRIS"RESAVL,R2 
JSB G QAST 
4 POPR #*A<RO,R5> 
5 90$: RSB 
6 95$: 3; Handle systen owned locks. 
3 3 complet 
p ; (actually a blocking subrou 
" 


BSBW CALL 7 SUBR 
41% #*M<RO,R5> 


4 
= ENQUEVE/DEQUEVE SYSTEM SERVICES 
# - Grant a lock request 
LCKSGRANT_LOCK = G K 
AE 1 8 QUEUE _AST: 
AE 197 3; Request is being completed 
AE 1 9 3 required to store status. 
AE 1 ; to queue an AST when dequeu 
AE 1 § 3 or deadlock). statue shoul 
ae ' ? ; The LKBSM_NODELETE bit may 
E5 AE 1985 BBCC #LKBS$V_TIMOUTQ,- 
19 : LKBSW_STATUS (RO) .45$ 
OF 1 REMQUE LKBSL_ASTQFL(R6) ,RO 
if 686 19 8 45$: st KBSL~CPLASTADR(R6) 
8 1990 BISB #LKBSM_KAST,=- 
1991 LKBSB_RMOD (R6) 
11 : 1236 BRB 0$ 
8s 133e 50$: : A completion AST was reques 
88 06C 1338 BISB #LKBSM_PKAST,- 
gece 199 LKBS$B_RMOD(R6) 
dO ace 1338 MOVL LKBSL_CPLASTADR(R6) ,- 
6C 199 LKBSL_AST(R6) 
AB 06CB 44 60$: BISW #LKBSA_DCPLAST,- 
6c 001 LKBSW_STATUS(R6) 
ey 098 70$: ; Set the event flag 
DO O6CF $08 MOVL LKBSL_PID(R6) ,R1 
9A 06D3 308 MOVZBL #PRIS$_RESAVL,R2 
9A 06D6 00 MOVZBL LKB$B~EFN(R65 ,R3 
16 OQ6DA 8 JSB G*SCHSPOSTEF 
3¢ peed 4 MOVZWL S*#SS$_NORMAL ,RO 
ss oH 80S: ; Queue AST if either complet 
B3 06E $18 BITW #LKBSM_DCPLAST!- 
13 ta \° BEOL LKBSM_DBLKAST,LKB$W_S 
6E9 16 PUSHR #*M<RO,R5> 
D 6EB 1 MOVL R6,R 
05 O6EE 18 TSTL KBSL_PID(R6) 
1 6F1 1 BEQL 5$ 
9E O06F3 0 MOVAB B*LOCK_KAST,- 
oré LKBSL_RAST(R6) 
% ere 
3 
4 
4 
4 
4 
4 
4 
7 
9 
A 


i 


SOoOCOoOCOOoOoOoooo 


"SrSEP=1986 08:58:48 ESYS’SRcSsvsewupcacman:1 §— 99° cf) 


gsynchronpusly so a kernel AST is 
This is also used as an entry point 
ing an ungranted lock. (e.g. abort 
d already be in LKBSL_LKST1. 


Note: 
have been cleared before calling QUEUE_AST. 


; Remove lock from timeout queue 
; if it was on it 


3 oe caller specify a completion AST? 
No, set special kernel AST bit 

3; and deliver completion AST anyway 
ted by the caller. 

; Set piggyback kernel AST flag 

; Store completion AST address 

; Set deliver completion AST flag 


3 Get PID 

3 preertty increment class 
; Event flag number 

; Post event flag 

; Return success 


ion or blocking AST flags are set. 


:;_Is either flag set? 
oe 

; No 

Save RO and R5 

R5 points to ACB 

Is this a system owned lock? 


es 
Store address of kernel AST routine 
3; Priority ine rgnent class 


; Yes, queue AS 
; Restore regs 


Since we can't be delivering a 


on AST, we must have to deliver a blocking AST 


tine call). 


3; Call blocking subroutine 
; Restore regs 
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O70A 2035 -DSABL LSB 
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-SBTTL LOCK_KAST = Kernel AST routine 
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;++ 
FUNCTIONAL DESCRIPTION: 


This routine is fhe special kernel AST routine. It is called 
whenever completion or blocking ASTs are delivered. 

If a completion AST is being delivered and the request is being 
completed asynchronously, then the lock status block and 

opt onally the value block are copied to the caller's LKSB. 
Then (synch. or async.) we see if a blocking AST is required. 
If it is th requ ug the LKB to deliver the yg ty AST. 
If a blocking AST is being delivered then we just have to clear 
the bit that tells us to deliver a blocking AST. Finally 
LKB is not requeued for an AST we check to see if it should be 
deleted and if so, delete it. 


CALLING SEQUENCE: 


; en we 
: JSB_ —-_LOCK_KAST (actually called by SCHSASTDEL) 


Note: This routine may be called as either a special kernel 
AST routine or piggyback kernel AST routine or both. 


INPUT PARAMETERS: 
RG Address of PCB 
R5 Address of LKB 
Note: Only offsets up to LKBSK_ACBLEN may be used 
; OUTPUT PARAMETERS: 
None 
SIDE EFFECTS: 
22? 


~ IF NDF LOADSW 
-PSECT LOCKMGR 
NDC 


LOCK_KAST: 
BBC 


f=) 
So 
oS 
f=] 
SSIS SSSI NSD DDD DDD DDD TTT EE EEE 


#LKB$V_DCPLAST,- 
LKBSW_STATUS(R5) ,40$ 


#LKBSV_ASYNC,~ 
LKBSW_STATUS(R5) ,20$ 


; Store srotus and value block, if requested. If the value block 
; is invalid then the status in LKBSL_LKST1 is changed. Note that 
; this only happens if the status code was a success code. 


MOVL LKBSL_LKSB(R5)_R1 ; Get address of LKSB 

BBC #LCK$9_VAL 4K - : Branch if no value block 
LKBSW_FLAGS R5),10$ 

BLBC LKBSL_LKST1(R5),10$ 


00 ; Branch if no completion AST to deliver 
79 2A A 


0 
39 2A A 


GOQQOOCCOCOSOSOSSCSOSSSOSGSOSOSOSOBGOOSOOOCOOSOOCOOOOOOSOOOOOOOOO 


SOOoQooooooo°oo 
© OO 00000090000 0000 00 C000 
Wr —OOCOnOu 


BBC ; Branch if synchronous completion 


PANO OONAUES WIN HO OO NAUE WIN OC OONAUE WN O OONOAUES WO 


51 24 A5 00 


a 30 


mm mim 
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SSN ~ 
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3; Onty store value block if request 
3 was successful 


2A 


COMMUN Nd 


52 
00000000" gf 
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BBC 
MOVL LKBSL_BLKASTADR RCR 3s - ; Store blocking AST address 

LKBSL_AST(RS) 
MOVZBL #PRIS-RESAVL,R2 
uae ‘ogttost 


ee a ee ee ee a a ee el a a ee ee a ee a a a a a a dd a a od od ad od BOO OOO 
“” 
on 
. 


DPB PPP PPE PAA AAAI WIIGEPPOPIPIPUNRINININID 2 2 OO MP OOOOOOCOOOCOCOWOWOONOONO a é 


DOONAN WO OD NA UE WIN SO OO NAME WIN @ O OD NA UNE WIN OOO NAULS WIN" QOOnous 3 


= 
Oo 
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IFNOWRT #24 wt 4208 5 Branch if LKSB is not writeable 
MOVL LK BS. RSE (R5) ,RO ; RO = address of RSB 
BITW pene A_VALINVLD,=- ; Is value block valid? 
RSBsu_ STATUS (ROS 
BEQL :; Yes 
MOVW #SS$_VALNOTVALID,=- ; No, change completion status 
LKBSC_LKST1(R5) 


MOVa RSB$Q_VALBLK(RO),8(R1)_ ; Store value block = Note: the fact 
mMOVa RSB$Q “VALBLK+8(RO) ,16(R18 i hat we always store the value block 
; is 


3 based on the assumption that SENQs 
158 ; that fetch it are always synchronous. 


BRB 
pceeune F (R1),.20$ ; Branch if LKSB is not writeable 


cba LLRSTI(R5),(R1)  : Store status 


; Requeve LKB if we have to deliver a blocking AST. Also, convert 
; lock back to system owned, if necessary. 


SETIPL #IPL$_SYNCH 3; Raise IPL 

BICW f A_DCPLAST ; Clear deliver completion AST bit 
LKBSW STATUS (RD) 

BBS #LKBSV_CVTTOSYS ; Branch if this lock should be con- 


LKBSW STATUSCRSS, 30$ t verted back to system own 
#LKBSV_DBLKAST,=- ; Branch if no blocking AST. to deliver 
LKBSW_ STATUS(RS) 


Afeaedy ° increment class 


G*SCH Queue A 
0$ 


Lock needs to be converted back to system owned. Restore old AST 
poreneter and convert back to sy stem owned. Call erece king 
ST subroutine instead of essust ng an AST, if neces 
Note that this path should NEVER be soxee if the NODEL TE bit is 
clear (i.e. places that clear the NODELETE bit should also clear 
CVTTOSYS). There are two reasons for this. First, NODELETE 
= Ray of then the LKB may already be removed from the PCB Lock 

e and CVT_TO_SYS would do a double REMQUE. Secondly, the field 
CKBSL OLOASTPRR 7s only part 9 of the full LKB; it’s not part of 
the ACB portion of t Therefore, this code path can only be 
used if we are BoA ine with the full LKB (see routine FREE LKB 
It is for these reasons that this code path branches to 80 
eahoel of 60$ when it's finished. 


MOVL LKBSL_OLDASTPRM(R5),- ; Restore old AST parameter 


Re ASTPRM(R5S) 


PUSHL ; Save R6 

MOVL R 3 Move LKB address 

BSBW eve nt SYS_INT : Convert to system owned 

POPL R6 ; Restore 

BB #LKBSV_DBLKAST ; Branch if no blocking AST to deliver 


LKBSW.STATUS(RS) ,80$ 
ALL_BLK_SUBR ; Call blocking subroutine 


; We must be delivering a blocking AST 


a 
QUEUE SYSTEM SERVICES 16-SEP-1984 AX/VMS Macro Vv04-00 p 4 
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SYSENQDEQ - ENQUEVE/DEQUEUE SYSTEM SERVICES 16-SEP-1984 AX/VMS ro V04-00 Page 47 SY‘ 
v04-000 LOCK_KAST = Kernel AST routine mt iat 1 88: 96: ig SYS.SR 48 YSENQ DEQ.MAR;1 . (15) vo! 
7 | 1 
7 1 SETIPL #IPL$_SYNCH ‘a IPL 
0 AA 078B 21 BICW #LKBSA_DBLKAST S Clear Jotiver blocking AST bit 
2a A 28D 3134 LKBSW_STATUS(RS) 
78F 138 60$: ; Delete LKB if no longer needed. Increment wt 9g quota unless 
78F 1 3; the NOQUOTA bit in the LKB is set. In this 
i : 138 § Ast quota has alresdy” been accounted for in the AST delivery code. 
05 €0 O78F 2160 BBS #LKBSV wopeuEye - ; Branch if not deleting 
16 0B AS 791 2161 LKB$B_RMOD(R5) , 80$ 
03 EO 0794 196 BBS #LKBs9 NOQUOTA,= ; Branch if accounting taken care of 
08 2A A 138 1 LKBSw STATUS a9) 70$ 
50 0080 C4 DO 079 164 MOVL PCBSL ; Get JIB address 
4C AO 86 13 165 INCW 1 1B8u “ENQENT (ROD ; Add 1 to enqueue count 
, Be dO Bra 196 70$: MOVL R5,R0~ 
00000000'GF 16 O7A4 216 JSB 6*€ XESDEANONPAGED : Deallocate it 
7AA 2168 80$: SETIPL #IPLS_ASTDEL 3 Lower IPL 
05 O7AD 2169 RSB 
O7AE 2170 
O7AE 2171 
7AE fe s 
ne \t? ; Synchronization notes: 
7AE 2175 ; 1) The clearing of the DCPLAST my and the coureny of the 
O7AE 2176; DBLKAST bit (after Label 20$) must be Sone at IPL$_SYNCH 
O7AE 2177; in order to synchronize seoraatt with the queueing of a 
O7AE 2178 ; blocking AST by routine LCKSQUEUVE_BLOCKAST. Sthersise. “she AST 
Brae 4 ; could be queued twice. 
7AE 2181 ; 2) Running the rest of the routine at IPL$_SYNCH (Labels 40$ and 
O7AE 136 3 80$) is just done for safety's sake. Af this writing, it 
Brae HY : is not believed to be necessary. 


eS 
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! .SBTTL LER SOUEUEC Insert a lock on conyersion queue 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
7AE 
7AE 
7AE 
7AE 
7AE 
7AE 
O7AE 
O7AE 
O7AE 
7AE 
7AE 
O7AE 
O7AE 
O7AE 
O7AE 


VT - 
-SBTTL LCKSQUEUEWAIT = Insert a lock on wait queue 
: FUNCTIONAL DESCRIPTION: 
jase routines handle lock requests when they cannot be granted 
EA LEDS € LCKSQUEUECVT handles conversion requests and 
Lteaue dey IT handles new lock requests. These routines also 
queue the lock onto a timeout queue if deadlock checking is enabled. 
CALLING SEQUENCE: 


BSBW LCKSQUEVECVT (or LEKSOUEURUAIT) 
(Note: IPL must be at IPL$_SYNCH) 


INPUT PARAMETERS: 
Address of PCB 


Bete Ge Ge Ge Ge Ge Se Ge Ge Se Ge Se Ge Ge Se Ge Ge Ge Ge Ge Fe Se Se Se Be Ge i 
xz 
- 


R5 Group grant mode without this lock (LCKSQUEUECVT oniy> 
R6 Address of LKB 
R8 Address of RSB 
R9 Flags 
OUTPUT PARAMETERS: 
None 
ThE SIDE EFFECTS: 
ane ALL registers except R6 may be clobbered. 
7AE -- 
7AE 
O7AE IF NOF LOADSW 
000007AE .PSECT LOCKMGR 
7AE . 
7AE 
ne -ENABL LSB 
one ASSUME LKBSK_CONVERT EQ 0 
7AE LCKSQUEUECVT:: 
7A INSQUE anes SQFL(R6) ; Insert at end of conversion queue 
78 aRSBSC_ CVTOBL (RB) 


; Branch if not first in queue 


WAN AA AAAI IOPINININININIIIIND 3 3 3 BQO OOO O0000.00000000.0000000000 


ROOD NONE WI @ OOD NAN E WIN  O ODNOAUE WIN 2 OOD NAME WIN O OONOUE WIN OOONIO 


7 MOVB RSBS$B_CGMODE (R8) ; Store conversion grant mode 

789 108: CLRB nas STATE (R6) ; Set state = conversion 

7B8C BITW #LKBSA_MSTCPY ; Is this is a master copy? 

78 LKBSu_ STATUS (AG) 

7¢ BNEQ 5 ; Yes 

7¢ REMQUE LKBSL_OWNQFL(R6) ,RO ; Remove from PCB lock queue 

4s BRB QUEUE _ COMMON ; Join common code 

7¢ LCKSQUEUEWAIT:: 

7C INSQUE Lees, SOrh RO) ; Insert request at end of wait queue 
7¢B arsBsc “WTOBL (RB 
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- ree dy Hy, ro 
LCKSQUEUEWAI Insert a lock on wait q - SYS.SRCJSYSENQDEQ.MAR; 1 (16) vO: 


LCKSQUEU 
FF 8F 890 4 


REM:: 
V 


Ove #LKBSK_WAI - ; Set state = waiting 


36 A LKB statecngs 

8 B3 BITW ratte MSTCPY,=- ; Is this is a master copy? 
A As LKBSW_STATUS (RO) 

1 12 BNEQ 5 ; Yes 


QUEUE _ COMMON: 


40 A6 INSQUE Ecos OWNQFL(R6),=- i Insert at end of PCB lock queve 
53 i ng movin, teateceFoteatcae” out eet Pleo tent 

‘ 3; Get even ag number 

00000000'GF *6 JSB-G*SCHSCLREFR : Clear the event flag 


00000002 


-1F NE CAS MEASURE 
Q0000000'GF 06 INCL 


; Insert lock on process lock queve and clear event flag. 
G*PASSGL_ENQWAIT 


Ag BISW #LKBSM_ASYNC,=- 


3 

4 

5 

! 

§ 

$ 

5 

: 15$: ; Set ASYNC bit and queue blocking ASTs 
1 

é Set bit to indicate this request 
: 

0 

1 

g 

4 

5 

; 


04 3 
3A AG LKBSW_STATUS(R6) : will be satisfied asynchronously 
C “ D4 CLRL LKBSL_LKST1(R6) ; Clear 1st longword of LKSB 
42 ry 8 ule 4 Soe LEAST CRT CRD 3 zee if anyone wants a blocking AST 
95 10 BSBB LCKSQUEVE_BLOCKAST ; Yes, queue blocking ASTs 
F 208: ; Insert this lock on timeout queue if deadlock checking is enabled 
F ; and this lock is mastered on this system and LCKSM_NODLCKWT is 
: ; not set. 
: ASSUME LKBSL_DUETIME EQ LKBSL_KAST ; Note that these fields overlap 
38 AB OD F TSTL Greet. .£510 (RS) ; Don't insert process copy locks 
§ 1 F BNEQ 30$ 
E 0 BBS #LCKSV_NODLCKWT,- ; Branch if no deadlock wait is set 
36 38 A6é 1 LKBSW_FLAGS(R6) , 308 
50 O 0 ' GF 00 § MOVL *LCKSGL_WAITTIME,RO ; Get lock wait time 
8 1 0 BEQL $ ; Deadlock checking is disabled 
Q00000000'GF 5§ C1 0 4 ADDL3 = RO o ereee ABSTIM,- ; Add wait time to current time to 
18 A6 1 5 Lké L _DUETIAE (R6) > get duet ime 
f A6 9% 1 § CLRB LKBS Was ) : Init. timestamp Lifetime 
0040 8F ABs 1 BISwW #LKBSA_TIMOUTQ,- ; Set timeout queue bit 
3A A 1 KBSwW_ STATUS (R64) 
50 00000000'GF pe MOVAL G*LCKSGL_TIMOUTQ,RO 
INSQUE Sati ASTQFL(R6) ,- 3; Insert lock on end of timeout queue 
04 B 1 a4 (ROY 
05 § 30S: RSB 
4 -DSABL LSB 


10$: MOvL (R75 


R ; Get address of next element in queue 
CMPL —seR7, R11 


; Reached the end yet? 


: Save a 


Wn & 


7 
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CCRSQUEUE. BLOLRAST - Queue Blocking ASTs iets 1 §6:93:18 EOYs SRCISYSENODEG-MAR; 1 va a, 
98 -SBTTL LCKSQUEVE_BLOCKAST = Queue blocking ASTs 
;++ 
: FUNCTIONAL DESCRIPTION: 
; This routine yeyee a blocking AST to all locks that meet the 
: following conditions: 
; Oo Are on the granted queye 
4 ; o Have requested a blocking AST 
23 Oo Have not already received a blocking AST 
§ 3 o Whose granted lock mode is incompatible with 
3 the requested lock mode of the lock being placed in 
; the conversion or wa £ Sveue 
; o Whose + pa state is GRANTED (eliminates locks in a SCS 
! ; conversion wait state) 
\§ : This routine assumes that the caller has already determined 
19 3 that RSBSW_BLKASTCNT is non-zero, indicating that there is at least 
13 ‘ one lock requesting a blocking AST. 
1 : CALLING SEQUENCE: 
18 : BSBW —_ LCKSQUEUE_BLOCKAST 
}} ; (Note: IPL must be at IPL$_SYNCH) 
1 ; INPUTS: 
: ; Re Address of LKB (being placed on conversion or wait queue) 
: 3 kK Address of RSB 
$ > OUTPUTS: 
8 ; None 
9 > IMPLICIT OUTPUTS: 
§ : Possibly, a number of blocking ASTs are queued 
4 : COMPLETION CODES: 
§ : None 
> SIDE EFFECTS: 
: RO - RS, R7, R10, and R11 are destroyed 
rt gue 
tg - IF NDF LOADSW 
44 -PSECT LOCKMGR 
rf -ENDC 
‘3 LCKSQUEVE _BLOCKAST:: 
3A 34 AG 4 MOVZBL LKBSB_ROMODE(R6) ,R10 ; Get req. lock mode of blocked Lock 
B 0A MOVAL RSBSL GROFL(R8) ,R11 ; Get address of granted queue 
co MOVL ddress 
2 
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Gh 
5557 4 C 
20 A D 
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35 A 9A 
E4 F7AD CFGA 3 E 
E 
DF 2A A 
6A 91 
01 
1 
8 
2A A 
OA 12 
0000000 
Q0000000'GF oD 
08 1 
C 1 
00000000'GF 1 
ae 
05 
Oc AS OD 
ae 
2A AS OA AB 
1 88 
08 AS 
EO 
14 2A A 
0 : dO 
18 AS =FE77 CF OSE 


= ENQUEVE/DEQUEU 
LCKSQUEU 


AAO 
Mmnni— 


D2 09 9099 9999090909098 III III III III III NID DSS 
SS SE SSSSSTSSASSHSVHVVHVVHVHVOS TIM MOO OHe 


r~ 
~o 


RMOOOOLO 


PS 


H 
SYSTEM SERVICE 
-BLOCKAST = Queue block 


90$ 

#@LKBSL_SOQFL,R7,R5 
inet _BLKASTADR (RS) 

LKBSB RMODE (RS) R 

RO,L LCRSCOM TafBceRt02, 1 

sLies V oBhkA RAS GED, - 

LKB Ht 108 

LKBSB ay Ce 

A KBSR. GRANTED 

#LKBSM_MSTCPY,- 

KB w_STATUS(RS) 

0 

CAS_MEASURE 


fen ASTs "$r3 


G“PASSGL -BLK_LOC 


LCKSQUEUE_BLKAST 
0$ 


G*LCKSSND_BLKING 
10$ 


actually queue the blocking AST. 


Address of LKB 
RO - RS not preserved 


LSB 


LKBSL_PID(R5) 
CALL _BLK_SUBR 


~3Ep= 1382 09:95:48 
Wes. 


Get grense 
; Bran 


i 


AX/VMS Macro V04-00 Page 51 
SYS.SRCISYSENQDEQ.MAR; 1 (17) 
sition to start of LKB 
ng AST address specified? 
lock i. e 
gk. ® 


Send a blocking messa 
Repeat for remaining 


; Is this lock s 
: Yes, call bloc 


k 


No 
Is this a master copy? 


No, actually queue an AST 
Repeat for remaining locks 


stem owned? 
ing subroutine 


locks 


ae 7 blocking an “olreedy 
; ; queue lock granted? 


Yes - send a message to other system 


; Deliver a blocking AST to the process owning this lock (LKB in R5) 
#LKBSM_BLKASTQED!- 


3 BEQL 
¢ SUBL3 
TSTL 
§ BEQL 
MOVZBL 
BBS 
BBS 
CMPB 
BNEQ 
: BITw 
NEQ 
96 BNE 
6 IF NE 
BM 
9 ‘ 
7 6SBB 
7 RB 
74 
75 80S: JSB 
6 BRB 
7 
a 90$ RSB 
7 
Q ++ 
: Subroutine to 
i; 
i 
$ ~ENABL 
LCKSQUEVE_BLKAST:: 
9 TSTL 
9 BEQL 
94 
38 QUEUE -BLKAST: 
9 BISW 
38 
BISB 
§ BBS 
5 
5 Mov 
5 MOVAB 


Se 
LKBSM DBLKAST, LKBSW_ stavisir ) 


LK $A _P 


LKB 
#LK 


A 
LKBSW_STATUS(R5) ,70$ 


LKBSL SPL EAST AOR CRS). 


LKBSL~ 


LOCK PAST, CRBSL -KAST(RS); 


blocking AST queued and 
deliver blockin 
Set plogyback kernel AST 


: Branch, if the LK 
: are This test 


AST status 
bit 


ots is eeeeey uous 
s 


tion het the "esi, ODBLRAST bit 


be set s 


; CKBSM B KASTOED b 
; Store blocking AST address 


nee wes not set. 


Store address of kernel AST routine 


2 
UE SISTEM SERVICER asta TECEESSISRS SU:QBELE PCYMECNREEEWI9EGOMuenn P20" 8, 


vou=000 /CKSQUEUE.B 
volo 


MOVZBL #PRIS RERANL. R2 3; Store priority increment class 
8 G*SCHSQAST : Queue the AS AST a 


ze 


70$: 


+ 
Subroutine to call biocking subroutine for system owned Locks 


Input: 
Address of LKB 
Output: 


EQUEU 
LOCKA 
4) 
4) 
4) 
4) 
4) 
di 
13 
oF 44 
44 ? : RO = RS not preserved 
F 26 
F 2425 CALL_BLK_SUBR: 
AB F r : Bicw in DBLKAST ; Clear deliver blocking AST bit 
4 
is 
155 
430 
"4 1 
35 
434 
? 5 
139 


0 
2A {4 A $u_STATUS(RS) 
0 Am A BISW #LKBSA aantey Pog :; Set blocking AST queued bit 
AA A LKBSW_STATUS(R5) 
51 GA dO wd MOVL LKBSL_ASTPRM(R5) ,R1 ; Get AST parameter 
AB 3 Call blockin mR Ay ig oints to LKB, R1 contains AST 
AB ; parameter. IPLS_ Bin H. RO - RS need not be 
. 3; preserved by MER 
20 B5 3 AB JSB @LKBSL_BLKASTADR(RS) ; Call blocking subroutine 
0 ‘ RSB 
OBAF -DSABL LSB 


" 


$< 


J 2 

SYSENQDEQ = ENQUEVE/DEQUEVE SYSTEM SERVICES 16-SEP-1984 02:02:1 AX/VMS Macro v04-00 P 3 
v04-000 LCKSCOMP_GGMODE = Compute group grant mo $78 raat §4:95:18 SYS. SRCISYSENGDEG.MAR; 1 8.0 day 

rf -SBTTL LCKSCOMP_GGMODE - Compute group grant mode 

441 34+ 

a2 FUNCTIONAL DESCRIPTION: 

44 This routine computes the group 9 nt mode for a particular 

44 resource. It does this by maximizing the granted lock modes 

4h for all locks in the granted and conversion queues. Note that 

44 this routine is often called with the lock of interest (to possibly 


be granted) not on any queue. 
CALLING SEQUENCE: 


BSBW LCKSCOMP_GGMODE 
(Note IPL must be at IPLS$_SYNCH) 


INPUTS: 

R8 Address of RSB 
OUTPUTS: 

R5 Group grant mode 
COMPLETION CODES: 

None 


SIDE EFFECTS: 


RO and R2 are destroyed 
Note: R1 must be preserved 


- IF NDF LOADSW 
Pees’ LOCKMGR 


LCKSCOMP_GGMODE : : 
ASSUME RSBSL_CVTQFL EQ RSBSL_GROFL+8 


CLRL R5 : Initialize group grant mode 
MOVAL RSBSL_GROFL(R8),RO ; Get address of granted queue 
BSBB 10$ ; Compute g.g. mode for that queue 
ADDL #8 ,RO ; Get address of conversion queue 


; fall through to ... 
; Subroutine to compute group grant mode for a single queue 
gs: MOVL RO,R ; Address of queue header 
$: (R2) 


2 
MOVL R2 ; Get address of next element 
CHPL rb : Reached queue header yet? 


BEQL ; Yes 

CMPB LKBSB_GRMODE-LKBSL_SQFL(R2),R5 ; Granted mode greater 
> than group grant mode? 

BLEQU§ 208% 3; No, continue down queue 


mm © 


OOOO O0909 0909 09.09 6909 0909 SII NSN SNS NAP AAPA AA AA AA MIMI IIIT 
SRA SSRIS AP OOOO EUINI—OO00 WO UN OOOO GON UN OOD 
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voue008 CCRSCOMP. GOMODE - Compute group grant mo ets 7 86:93:18 ESYS SRC SYSENQDEQ.MAR; 1 wt Ary 
55 FD A2 QA cB 3 MOVZBL LKBSB_GRMODE-LKBSL_SQFL(R2),R5 ; Yes, granted mode becomes 
ec 11 OBE 56 BRB (208 | Fontinle ann avews 
3 ue down que 
03 0851 $299 30s: BSB : 


L 2 
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-SBTTL LCKSGRANTCVTS = Grant conversions 
»SBTTL LCKSGRANTWTRS - Grant waiters 


SYSENQDEQ 
v04-000 
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: FUNCTIONAL DESCRIPTION: 
vat! two rayt ines try to grant waiting conversions or 
ng new locks. ey ove called when another loc 
‘3 dequeued or converted y there is a possibility thet a waiting 
lock request may be granted. 
CALLING SEQUENCE: 


BSBW LCKSGRANTCVTS (or 72" eat 
(Note: IPL must be at IPL$_SYN 


INPUT PARAMETERS: 


R5 Contains group grant mode 
R8 Address of RSB ’ 

OUTPUT PARAMETERS: 
None 


SIDE EFFECTS: 
RO - R4 are destroyed 


NAA WN 9 DOOD NIA NEW 2 S OD NAME WIN 9 OD NAME WN 9 OD NAUVOO ONOUES WT 


DAA ANINNE BEEP EEE EWAN AAAI OROPOPPONPUNNON 2 DOOD OOOOOO 


8 
8 
8 
go 
3 ~ IF NOF LOADSW 
000008D -PSECT LOCKMGR 
gp END 
ep -ENABL LSB 
D LCKSGRANTCVTS:: 
56 ee = PUSHL R6 3; Save R6 
56 «18 Be F D 10$: REMQUE @RSBSL_CVTOQFL(R8) ,R6 : Remove head of conversion queue 
4 1D 08 BVS 70$ : Nothing on conversion queue 
56 38 C SUBL #LKBSL_SQFL,R : Position R6 to start of LKB 
veneeonadh «4 7 AY G*LCK$GB_ Ct ATP REGS : ore we stalling requests? 
51 34 a6 9A E 20$ MOVZBL ate BOnOOE SAG) R1 . Get requested mode of conversion 
10 F711 cF4S 5 £0 E BBS LCRSC BLCRS],408 ; Branch if compat. to grant conversion 
ce Ag ; F CHB Kb$o KGRRODE (RO), RS : Is granted mode = 9.9. mode? 
FF ° x6 F BSBW bee KSCOMP_GGMODE res, ery pytenput ine 3 9: mode 
05 F701 CF45 F BBC ERSCORPAT TBLCRS), ssi | Branch if no compe ible 
FDO08 9 40$:  8SBW KSGRANT_LOCR ; brant this conversion 
gf 9 BRB $ ; : Try the next genvers ton too 
OD As 5 0 09 55$: MOVB RSBSB_C RE CRS) : Store conversion grant mode 
7 A —E 09 60$: INSQUE treet SOFL( : Insert lock at head of 
A 9 RSBSL_ Sttinet ty : conversion queue 
5 BED) POPL Re 3; Restore R6 
} RSB 


SYSENQDEQ 
v04-000 
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56 20 AB 
57 56 

56 = 66 

5? 56 

gh 

FF S&F 
ids 
ween 
51. FC A6 
10 F6B9 CF45 “1 
66 

50 966 
5638 
FCB8 

56 

D1 

37 

6 

F7 

09 

D7 F2 4 


AMEN 29 ODNAUNE WN $9 OD NAUE WIN 9 OD NOUS WN (QUOD NAULS WN O00 
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Grant waiters ~$eE= 1386 §6:95:18 Leys SRCISYSENGDEG_MAR: 1 - 38) 
65$: ; We are stalling some requests - see which ones 
BLSS 60$ 3; We are stalling all requests 
BBC #LKBSV_PROTECT,- ; We are only stalling protected locks 
LKBSW_STATUS (RO) , 208 ; Branch if this is not a protected lock 
BRB 0 ; Exit without trying to grant lock 
LCKSGRANTWTRS:: 


; Get here if the conversion queue is empty. 


: Try granting waiting Locks. 
3 This? ; 


Group grant mode is in R5. 


routine is different than the one above because we 
; must skip over locks in any SCS 


PUSHL R 
70$ PUSHL R 
MOVAB RSBSL_WTOFL (RB) .R6 
MOVL  R6,R 
75$:  MOVL (R6),R6 
80S: CMPL RS R? 
BEQL ©: 908 
CMPB = #@LKBSK_WAITING 


TSTB gy KOSS STMLREOS 


KBSB_STATE-LKGSL_SOFL (RO) 


wait state. 


Save R 

Save R 

Get address of wait queue 
Save in R7 


Get next LKB 
Reached the end? 


Yes 
Is the state = WAITING 


No, skip over it 
Are we stalling requests? 


BNEQ ; Yes 
85$: MOVZBL LKBSB ROMODE-LKBSL »SOFL (RO) .R1 3 Get requested mode 


R1,LCRSCOMPAT_TBL 


PUSHL 
REMQUE (R6),RO ; 
SUBL  #LKB$L_SQFL,R6 : 
BSBW LCKSGRANT_LOCK : 
POPL R ; 
BRB 80$ ; 
90$: POPL R7 : 
POPL R6 3 
RSB 
95$: ; We are stalling some requests - 
BLSS 90$ : 
BBC tating PROTECT,- 
LKB W_STATUS-LKBSL_SQFL(R6 
BRB 0$ : 
-DSABL LSB 


1,90$ ; Branch if iegonpes the 


ave address of next LK 
Remove from wait queue 
Position R6 to start of LKB 
Grant this lock 
Resume queue where we left off 
Try next waiting lock 


Restore R7 

Restore R6 

see which ones 

We are stalling all requests 


: Brangh if this is not a protected lock 


) 
Exit without trying to grant lock 
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96§ i ~SBTTL VERIFYLOCKID = Verify lock id 
: j++ 
. } 3 FUNCTIONAL DESCRIPTION: 
96 1 : VERIFYLOCKID verifies a lock id for correct process ownership 
st 1? ; and access mode and then converts it into a LKB address. 
368 615: VERIFYPARLOCKID is similar except that the lockid is that 
| ; 918 : of a parent lock and the access mode checking is different. 
i 1 ; CALLING SEQUENCE: 
968 ; BSBW VERIFYLOCKID 
968 2621 ; Note: PL must be at IPL$_SYNCH to verify that an LKB is 
968 26 ¢ 3 not deallocated while it is being verified. After this 
968 26235; routine returns, it is permissable to lower IPL to 
968 2624 ; IPLS_ASTDEL because the process that owns this lock 
0968 2625 ; cannot interrupt to dequeue it (as long as we're 
+44 ? § 3 not dealing with a system owned lock). 
036 2 : : INPUT PARAMETERS: 
O34 630 ; R1 Lock id 
Bock ? 13 RG Address of PCB 
0968 6 5 3 OUTPUT PARAMETERS: 
0968 2635 : RO Completion code 
boee 6 § 3 R1 Access mode of caller (on success only) 
+4 ° : R6 Address of LKB 
$e 639 ; COMPLETION CODES: 
968 2641 ; SS$_NORMAL Lock id was valid and converted to LKB address 
Ht ot¢ 3 SS$_IVLOCKID Invalid lock id 
368 644 > SIDE EFFECTS: 
968 eg : RO is destroyed 
968 ak: IF NDF LOADSW 
0000 st 9 -PSECT LOCKMGR 
3 . -ENDC 
3 ‘ § .ENABL LSB 
308 5688 ASSUME LKBSV MODE EQ 9 
He ° § ASSUME LKBSS_MODE £0 
at 6 : VERIFYLOCKID: 
6 DD 968 6 PUSHL #1 
_. , : 9 BRB 5$ 
$4 § VERIFYPARLOCKID: 
00 ovdd 096C PUSHL # 


56 2} 

00000000 ' GF 28 
50 00000000' GF 
6 6046 
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oc: 


ADOL 
MOVZWL 
RSB 


an 


BITW 


is s 
the 


If iti 
flag is set. 


CKSGL_MAXID 


K$GL_IDTBL,RO 
CR6),R6 


gi KOOL LAID CRS) 


wr 


PRVMO 
RVM 
B$B 


#4,SP 
S*#SS$_NORMAL ,RO 


#4,SP 
#S$$_IVLOCKID,RO 


#LKBSM_MSTCPY,- 
LKBSW_STATUS (RO) 
$08 


P) 

60$ 

LEBSL_PID(R6) 
0$ 

30$ 


"SrSEp=1986 08:53:48 Esvsusacisvsenupea.maa:1 "29° (36) 


Put lockid index in R6 
Fag lock id too big? 


see May combine with next instr. 
Get LKB address 


Check pyquence number 
Not vali 

Get current PSL 

Extract previous mode field 


Get access mode of lock 


; Determine which acmode checks to make 
; Parent checks 
; Caller have privilege to access lock? 


Yes 


No 

Only less priv. modes can be sub-locks 
to more priv. modes. 

Get RSB address 

pester have privilege to access res.? 


re) 

Compare LKB PID with current 
aroteosay PI 

omebody else's id (or 0) 


; Remove flag 
; Success 


; Remove flag 


The caller's PID and the lLock's 
a master copy lock, then it ma 
stem-owned and the caller 
e can reference this lock. 
We determine if it 


Y 


But it can 


: Invalid lock id 


PID don't match. If this is not 
be a system-owned lock. If it 


S access mode is EXEC or KERNEL 


Otherwise, it is an error. 


S$ system-owned via two different methods 
depending on whether we are verifying a parent lock or not. 
S a parent lock, we just need to determine if the CVTSYS 
Otherwise, we need to verify that the PID is zero. 
This is because even system owned locks go through transient 
states when the PID is not zero 
d lock is mastered on another 
is in this state (PID non-zero) 
by another process. 
system owned locks. 


(e.g. conversion in progress 
node). If a system owned lock 
then it cannot be manipulated 
be used as a parent for other 


; Is this another system's master copy? 


Yes, error 
No, choose system ownership check 
Parent lock check 
ts this a system lock? 
e 


s 
No, error 
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06 €1 O9DC 2721 60S: BBC #LCKS$V_CVTSYS,=- ; Branch if not system owned 
E128 A 90E 27 LKBSW FLAGS(R6) 308 d 
a 91 E 708: CMPB sR, #PSLSC_EXEC ; Yes, is the caller privileged? 
D5 «618 409E4 2724 BLEQU go > Yes 
DA 11 OSE 725 BRB 0$ 3 No 
9E 7 $ 
9E 7 -DSABL LSB 
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-SBTTL EXESDEQ - Dequeue system service 


- ENQ 
EXESD 


"FUNCTIONAL DESCRIPTION: 
This routine handles the $DEQ system service 
CALLING SEQUENCE: 
CALLS/G EXEsOES (Actually called through the system service 


Wwr—Own 


dispatcher 
INPUT PARAMETERS: 
LOCKID(AP) Lock id 
V Address of value block 


ALBLK (AP) 

DEQ_ACMODE(AP) Access mode of locks to dequeue (only used if 
DEQALL flag is set) 

DEQ_FLAGS(AP) Flags 


R4 Address of PCB 

OUTPUT PARAMETERS: 
RO Completion code 

COMPLETION CODES: 
SS$_NORMAL Successful completion 
SS$_IVLOCKID Invalid lock id 
SS$_ACCVIO Access violation (on VALBLK) 
$S$_SUBLOCKS Lock has sublocks 
SS$_CANCELGRANT Cannot cancel a granted lock 


Sete Ge Ge Ge Se Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Gee Ge Ge 


MEAN =O DOONAN WN 0 OONAUS WN OOONOUS 


- IF NDF LOADSW 
~PSECT YSEXEPAGED 
-ENDC 


-ENABL LSB 


IOS ODS DS DS DOS DDS DDS TTT EB BS BS BS BB NAINA 


NDF LOADSW 
RY EXESDEQ,*M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 


T 

F 

4 EXESSDEQ, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 

; First see if this is a dequeue of a specific lock or a dequeue 

: of all locks at the specified access mode (maximized with caller's 
3 access mode) and outer modes. 

ASSUME LCKSV_DEQALL EQ 0 

MOYL LOCKID(AP) ; Get lock id 


R1 
MOVZWL Ded FLAGS (AP) ,RS : Get dequeue flags 
BLBS R5,B€Q ALL ; Branch if dequeue all 


wu 
we 


D NWI IANNIS = = = — —* — —* 0900 09 09 09 09 09 CD CD CD CD CD CD CD CD CD CD CD CD 0D CD CD CD CD. 0D CD CD CD CD CD CD CD CD OD CD 0D 


Sa a Dita Dita Dita it i i Bie Bin Sie Si Dit i i i BB i Be tt 
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0 
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wo 
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11E 27 
Vie 4 § ; It's a dequeue of a specific lock 
59 «=—(08 ag 0 11 7 § MOVL yA BLK (AP) ,R9 ; Get address of value block 
1 1 1 é 790 BEQL 0 3; No value block 
1 791 IFNORD #16,(R9),25$ ; Branch if value block not readable 
7E r°° iS 2 13¢ mova B(RO) , (SP) : Push value block onto stack 
1 794 MOV PRS ; R9 points co value block 
‘ . = 134 53 208: SETIPL 356 : Raise IPL to IPL$_SYNCH and 
138 £36 ; lock pages in memory 
088 . Hi 138 a BSBW VERIFYLOCKID 3; Verify lock id and return LKB in R6 
1D 50 175 538 BLBC RO,DEQ_EXIT ; Error 
13} gn ; Check to see if we are stalling all requests 
Q00000000'GF 95 0141 4 TSTB G*LCK$GB_STALLREQS ; Are we stalling all requests? 
19 19 Biee Ht BLSS 22$ 3; Yes 
0149 2805 3; LKB address is in R6. Value block address (or 0) is in RI. 
apes 84 : Dequeue the lock and grant any waiting locks. 
00000002 0149 2808 IF NE CA$_MEASURE 
O0000000'GF Dé 0149 2809 INCL G*PAS$GL_DEQ_LOC 
Bide aiY ~ENDC 
54 55 00 Shae HE MOVL R5,R4 ; Move flags 
57 D4 0152 281 CLRL R7 3; Use default status 
O92E* 30 0154 2814 BSBW LCKS$DEQLOCK ; Dequeue the lock 
0124 BF 50 61 OQ157 2815 CMPW RO ,#SS$_INSFMEM ; Handle insufficient menory 
07 «13 a3 816 BEQL «6s 23 
Q EXIT: 
O13 i patos ; Exit SDEQ system service. Status should already be in RO. 
HE 1 SETIPL #IPLS_ASTDEL ; Lower IPL 
04 B14 8 ¢ RET 
1 16 4 22$: BRW STALL_REQ : Stall request 
wrt 3 3 2 Ate BRW WAIT_FOR_POOL ; Wait for pool 
1 7 25$: MOVZWL S*#SS$_ACCVIO,RO 3; Access violation 
” of if i : ; BRB DEQ_EXTT 
50 212C 8F 3C 016d 35$: MOVZWL #SS$_SUBLOCKS,RO : System lock with sublocks 
EA 11 122 BRB DEQ_EXIT 
Q ALL: 
15 4 Bea A, 3; Dequeve all locks at the specified access mode (maximized 
174 5 ; with caller's mode) and less privileged modes. Since this List 
174 § ; is normally kept in the order locks were taken out, one pass 
174 3; through the List will normally be able to dequeue all the 
174 8 3 saerttie locks. However, two things aty cause the List to 
174 3; be out of order. First of all, wai ng locks are kept at the 
174 40 3: end of List (for the convenience of deadlock detection) and 
174 41 ; secondly, if a lock with sublocks is converted (and must wait) 
174 42 : t ends up out of order on the list. If the List is out of order, 


SY‘ 
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\t 43 ; the result is that we get SS$_SUBLOCKS errors when we try to 
174 44 ; dequeue out of order locks. It is therefore necessary to count 
174 45 ; these errors and if there are any to repeat the loop, again 
174 $ ; trying to Coqveus all the specified loops. in order to guarantee 
174 4 ; eventual completion we make sure that each time the loop is repeated, 
Ve ‘3 ; the number of SS$_SUBLOCKS errors is less than the previous time. | 
174 2 ASSUME LKBSV_MODE €Q 
\t 2) ASSUME LKBSS_MODE £0 
55 9¢ AA 0174 24 BICW fi, CXOR_CANCEL -RS ; Don't allow CANCEL if DEQALL is set 
2 DD 0177 ee PUSHL R ; Save dequeue flags 
56 1 it 179 MOVL R1,R6 3; Move parent lock id 
ae 17C 2$ BEQL 40g ; No parent - dequeue all locks 
- 43 5 SETIPL 95$ ; Raise IPL to verify lockid 
00000968 fF 16 Q1 28 JSB ERIFYLOCKID ; Convert to LKB address 
D0 50 «=6—€9 = o*01 5 BLBC RO,DEQ_ EXIT 3; Error 
OC A6 D3 oi E 2860 TSTL LkBSL_PID(R6) : Verify the lock is not system owned 
DA 1 1 } 61 BEQL 5$ ; It is - error 
56 DD 019 6 40$: PUSHL R6 ; Save LKB address or zero 
8138 6 SETIPL Abe ASTDEL ; Lower IPL to allow page faults 
50 OC AC FFFFFFFC 8F CB 0198 64 BICL3 #*C<35,DEQ_ ACMODE(AP),RO; Get specified access mode 
00000000'GF 16 O1Al 50? JSB G*EXESMAXACMODE ; Maximize with previous mode 
7E Q1 CE OQO1A7 96 MNEGL #1,-(SP) : Initialize last error count to -1 
98 DD O1AA 6 PUSHL 0 ; Initialize current error count to 0 
0 OD OAC rt: PUSH 0 3; Save access mode 
59 4 fs | CLRL R : Indicate no value block 
5A 0104 C4 DE O1B 0 MOVAL PCBSL_LOCKQFL(R4),R10 ; Get address of PCB lock queue head 
58 SA DO 0185 71 MOVL R10,RT1 3; Save in R11 
0188 7 
0188 ie 50$: ; Process next LKB in list. It's friendly to lower IPL to IPLS_ASTDEL 
018 874 3; so that system events can occur. Otherwise we could dequeue 
1B 75 ; thousands of locks gtarin at IPL$_SYNCH the entire time. 
18 16 ; But lowering to IPLS_ASTDEL exposes us to at least two race 
18 7 3; conditions. The first is that we could have the address of 
1B 78 3 an LKB in R6 (at IPLS_ASTDEL) and deadlock detection could 
18 79 3; dequeue the lock out from underneath us. The solution to this 
1B 80 ; is to stay at IPLS$_SYNCH between fetching the LKB address and 
18 1 3; dequeu ng it. Thw other race condition is that by Lowering 
1B ¢ 3; to IPLS_ASTDEL, a waiting lock could be granted, this nov ing 
18 3; from the tail of the list to the head. ince we traverse this 
18 4 3; list from the head to the tail, we could miss this lock. The 
1B 5 ; solution to this one is to verity that the head of the List 
18 § ; doesn’t change while we lower and raise IPL. 
56 68 D0 O1B 8 VL (R11) ,R6 ; Get first LKB on List 
1BB SETIPL §]PLS_ASTDEL ; Lower IPL to allow system events 
a 0 SETIPL 95$ ; Raise IPL and lock pages in memory 
68 56 »d1 OIC 91 CMPL R6, (R11) ; Did the head of the queue change? 
6A is 1¢8 38 BNEQ ; Yes, start over again 
6 D 1CA 9 MOVL (R10) ,R6 ; Get next LKB in (*st 
B 6 D4 ig 34 CPL R6, RIM : Reached end of lis.? 
3: Yes 
56 CO A6 E Q1D 38 MOVA ~LKBSL_OWNQFL(R6) ,R6 ; Back up R6 to point to start of LKB 
50 0B Ad FC 8F 1D6 289 BICBS #*XFC,CKBSB_RMOD(R6).RO ; Get lock access mode 
—E 50 1DC 38 CMPB se RO, (SP) ; Is lock access mode < spec. mode? 
L ; Yes, don’t dequeue 
D iF ODF 289 BLSSU 608 Yes, d d 
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51 OCA MOVL (SP),R1 ; Get parent LKB address 
if 8 : ° BEQL 85 3; No porent - dequeue all locks 
E : 3; Have a candidete lock to dequeue (in R6). Exit the loop 
ef 4 ; if the specif og parent lock (in R1) has a zero reference count. 
E 5 ; Otherwise, see if our candidate lock (in R6) is a sublock of our 
4 $ 3; parent lock (in R1). 
4C Al E7 TSTW KBSW_REFCNT(R1) 3; Are all its sublock ? 
oH hoe ae ge Be | Bsr estoy oe ones an wo 
3 w oint to eac the tree 
50 648 AS 0 E 538: MOVL LKBSL_PARENT (RO) ,RO ; Move up one level in tree 7 
¢ 1 F BEQL 0 3; Reached the cep without a match 
51 9 D1 F CMPL 4 RI ; Does this match specified parent? 
F 12 4 ¢ BNEQ 53§ :; No, keep going up tree 
4 § 55$: ; Have an LKB (in R6) to be dequeued. 
0000000 FA 8 -IF NE CA$_MEASURE 
00000000 ' GF FA INCL  G*PASS$GL_DEQ_LOC 
+ 9 -ENDC 
54 104A dO 00 § MOVL 16 (SP) ,R4 ; Fetch dequeue flags 
5 04 04 CLRL 3; Use default status 
tse ll %8 6 3 ple “LCKSGB_STALLREQS 3 are we stalling all requests? 
: Yes 
0874' 30 of g BSBW LCKSDEQLOCK ; Dequeve it 
A4 50 «CEB 1 4 BLBS RO,50$ ; Branch on success 
0124 8F 50 =—B1 14 CMPW RO,#SS$_INSFMEM ; Check for insufficient memor 
28 13 19 0 BEQL aSé - 
04 AE 06 18 § INCL 4(SP) ; Increment error count 
SA 6A dO if MOVL (R10),R10 ; Skip this LKB 
95 11 : BRB 50$ 
§ ; Completed a loop through all of the process's locks. If the 
; current error count is zero, then we're done. If it's non-zero 
8 ; then we have to run through the List again as long as the error 
4 3; count this time was less the error count Last time. 
04 A 1 TSTL 4(SP) ; Test current error count 
6 § BEQL 0$ ; Zero - all done. 
08 AE 04 AE 8 CMPL gage) o8(SP) ; Compare current count with last one 
1A D 4 BGEQU§ 90 : Bugcheck if it didn't go down 
08 AE AE F 5 MOVL 4(SP) ,8(SP) ; Current count becomes previous count 
AE 4 § CLRL 4(SP) ; Zero current count 
bY.) F 7 MOVL R11,R10 ; R10 now points to List head again 
FF 5 : BRW 50$ ; Repeat the loop 
50 on 80$: MOVZWL S$*#SS$_NORMAL ,RO ; Set completion status 
FFIB 2 1 Baw DEQ_EXTT 
4 4 § B35: BRW WAIT_FOR_POOL ; Wait for pool 
A4 2 : $: BRW STALC_REG ; Stall request 
49 6 90$: BUG_CHECK DEQSUBLCKS, FATAL 
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A 
9A OAI 


om 


DIDO OOOOGOOOOOOODOOOOOOOOOOOOOOOOOOOOOOOOO <oO 


EVE 
°f¢ 


c™ 


DOS OCOO OOOO OO OW 0009090909908 NINN NNIO OOS IC 
NAMA WIN SO OD NAME WN O OO NAUE WN O OD NOUES WN O ODNOUE 


OOoOooooo 
SOWONOUS WIN OO 


Oe 


+ 


; INPUTS: 
R 
Ry 
R8 
; OUTPUTS: 


LCKSCANCEL_CVT:: 
SUBLS 


BNEQ 
MOVZWL 
5$: BBC 
BISW 
108: MOVL 
MOVZBL 


I 
SYSTEM SERVICES 
ancel a@ waiting conver 5-SEP- 


~SBTTL LCKSCANCEL_CVT = Cancel a waiting conversion 


None 
SIDE EFFECTS: 
RO = R4 


IF 
» PSE 
ENDC 


REMQUE 
BBS 
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FUNCTIONAL DESCRIPTION: 


This routine cancels waiting conversions instead of dequeueing them. 
This means the lock is inserted back on the granted queue at it’s 

d mode. However, if it was at the head ° 
then we have to try granting other conversions. 
locks get their old so 
was formerly a system owned lock, then the CVTTOSYS bit is set so that 
after the completion AST is delivered, the lock is converted back 
to a system owned lock. 


; CALLING SEQUENCE; 


BSBW 
IPL must be at IPLS_SYNCH 


f the conversion queue, 
Note that canceled 


locking AST address restored. Al f the lock 


LCKSCANCEL CVT 


Address of LKB 

Final completion status to to store in LKBSL_LKST1 or 0 
in which case SS$_CANCEL is used (not needed if this is a 
master copy lock) 

Address of RSB 


and R9 are destroyed 


LOADSW 


LOCKMGR 

#LKBSL_SQFL,- ; Save address of lock at the 
RSBSL_CVTQFL(R8) ,RO ; head of conversion queue 

LKBSL SQFL(R6) RI ; Remove this lock 

#LKBST_MSTCPY,- 3; Skip “‘process’’ code if this is a 
LKBSW STATUS (RG) 10$ ; master copy 

R7,LKBSL_LKST1 (RO) ; Store specified status 

5$ 3; Had one 

#Sss cet - 3; Use default status instead 
LKBSC_LKST1(R6) 

oLKS _WASSYSOWN,- ; Branch if lock wasn’t system owned 
LKBSW_STATUS(R6) , 108 

ts ng eyTTOSYS - 3; Lock should be cvted to system owned 
LKBSW_STATUS (RO) : after completion AST is delivered 
Toner ; Restore old blocking AST address 
LKBSL_BLKASTADR(R6) 

LKBSB_GRMODE (R6) ,R1 ; Get current granted mode 


ny 


S 


08 


Al 
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TsTL — BSBSL_CSID(RB) 


BSBW LCKSREGRANTLOCK 
CMPL Rs RO 
BNEG 208 


Is this a process copy? 

Yes, skip grant ing other locks 
Regrant this lock 

pee t at the head of the queue? 
io 


; We have regranted a sogh that was at the head of the conversion 
; queue. [peretere. oO necessary to try to grant additional 
; ® 


: socks, Also, 
; set it incorrectly below. 
MOVZBL ty Sennns (88) as 
MOVB  R5,RSB$B_CGMODE (RB) 
Bseu LCKSGRANTCVTS 


BSBW = LCKSGRANT_REM 


reset the conversion grant mode if we 


Get group grant mode 
and set conv. grant mode equal to it 


; Try granting more locks 


; Regrant this lock 


$< 


-c 
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-SBTTL LCKSDEQLOCK = Dequeue a lock 


+ 

FUNCTIONAL DESCRIPTION 
This routine foqueure a specified (by LKB address) lock and 
grants any waiting locks, if possible. If there are no 
waiters or holders of the lock, the RSB is deallocated. 

CALLING SEQUENCE: 


BSBw LCKSDEQLOCK 
IPL must be at IPL$_SYNCH 


INPUT PARAMETERS: 


R4 Dequeue tags 
Rg Address of LKB 


Contains final status to store in LKBSL_LKST1 if Lock 
is not granted (i.e. SS$_DEADLOCK) or O which indicates 
a default status should Be used (see below). 
(not needed if this is a master copy lock) 

Rg Address of value block or 0 if no value block 
(not needed if this is a CANCEL function) 


OUTPUT PARAMETERS: 
RO Completion code 
COMPLETION CODES: 
In RO: 
SS$_NORMAL Successful completion 
S$S$_SUBLOCKS Lock has sublocks 
SS$_CANCELGRANT Cannot cancel a granted lock 
SS$_INSFMEM Insufficient memory to allocate a CDRP 
In LKBSL_LKST1 (if R7 = 0) 


SS$_ABORT = Lock request was aborted 
SS$_CANCEL = Lock request was canceled 


SIDE EFFECTS 
RO - RS, and RB and RY are clobbered 


Be Ge Se Ge Ge Me Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Se Ge Ge Ge Se Se Se Se Fe Se See Sse Se Se Sse tete 
i a 
‘ 


- IF NDF LOADSW 
»-PSECT LOCKMGR 


DO O69 C909 69 G9 6969 G9 G9 09 SI INN SNS DDD DD DPA De TTI EE £~ BS EE EE EE 
=O ONAN WIN @§ 9 OO NAME WIN OOD NAME WIN 3 SO OONOAU EWN OOOVNOULS UT" OM 


SOOOSSSSSOSSSGOSSOOSSOOOOOCOSOSSOSSSSSSSOSOSSGOOSGOOSOOOCOOOOOOOOOOOOOOOO 


~ENDC 
$8 -ENABL LSB 
94 INVALID_STATE: 
32 BUG_CHECK LOCKMGRERR, FATAL ; Invalid lock state 


" 


-_- 


. 2 
SYSENQDEQ = ENQUEVE/DEQUEVE SYSTEM SERVICES 16-SEP-1984 AX/VMS Macro V04-00 Pa 
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7 A 7 REFCNT_ERROR: 
50 212C 8F HS A 5 3 Roy ZWL -#SS$_SUBLOCKS RO 
. ; RSB 
ASD 3101 CANCELGRANI: 
50 OE2A 8F 3 A 1 § MOVZWL #SS$_CANCELGRANT,RO ; Granted - can't cancel a granted lock 
Aa8 3104 _ 
36 AG =O9S) (OAS 105 CANCEL: TSTB LESSS STATE (AG) : Dispatch on lock sta 
4 19 OA4 1 $ BLSS $ 3 Waiti ng - handle as cotners dequeue 
F 14 OA4 1 BGTR CANCELGRANT ; Granted - error 
53 38 ae 00 wee } oeyt RSBSL. CSID(R8) ,R3 ; Is resource managed by another system? 
3 No 
essere 1 8 AS 11 JSB G*CNXSALLOC_CDRP ; Alloc. CDRP (and convert CSID to CSB) 
69 50 ‘ AS 11 BLBC RO,NOCDRP 3; None available (or CSID convert error) 
apesanedl 8 A 1g JSB G*LCKSSND_DEQCV ; Send a dequeue message 
fs ASF 3113 3$: BSBB LCKSCANCEC CVT ; Cancel conversion and regrant lock 
50 01 a A61 3114 MOVZWL S“#SS$_NORMAL ,RO ; Return success 
0 nee V2 RSB 
Aé 113 SNDDEQ WAIT: 
A6 118 : Need to send a message to master system. Lock is ina 
BAe 13 3; waiting state. 
00000000 ' GF 18 Ab 121 JSB 6 CUXSALLOC CDRP 3; Alloc. CDRP (and convert CSID to CSB) 
4 50 3 A6B 31 § BLBC R Pp 3 None available (or CSID convert error) 
6 A6 73 Ae ! i ire LK6s8_ STATE (R6) 3 oO lock in conversion wait? 
00000000'GF 16 Ars 125 JSB G“LCKSSND_DEQWT : No, send a dequeue message 
OFC 31 OA? 1 § BRW 3; Resume processing 
setts 5" My OARS : i 4$: i38 Fab CRSSNO_DESCY ; Send a dequeue message 
A 129 
A : 130 LCKSDEQLOCK:: 
58 SO A6 D A 131 OVL LKBSL_RSB(R6) ,RB ; Get RSB address 
54 Oe 8 : ; ! § ay aL CKSA. CANCEL ,R4 s -. CANCEL flag. set? 
4C AG 6©BS OOA : 134 6S: TSTW LKBSW_REFCNT(R6) : Are there any sub locks? 
A412 ne ! 5 BNEQ REF CNT_ERROR : Yes - error 
Ad 1 $ ASSUME LKBSK_GRANTED EQ 1 
Ag 1 8 ASSUME LKBSK-CONVERT EQ 0 
vs! 1? ASSUME LKBSK~ WAITING EQ -1 
Ad 124 3; Dispatch Gogending on which queue the lock is on and 
“ 146 3 : whether it managed remotely 
50 36A 90 OA9 144 MOVB LKBS$B_STATE(R6) .RO 3; Get lock state 
6 14 OA9 145 BGTR DEQ GRANTED 3 Lock is on granted queue 
53 38 A D A99 146 MOVL RSBSt CS10¢R8) RS ; Is resource nenaeed” by another system? 
1 AID 314 BNEQ DEG_WAIT 3 Yes 
9 ASF 133 TSTB 3; What queue is lock on? 
4 1 AAI 14 BEQL pFat 3; Lock is on conversion queue 
FF 8F 0 91 OAA 1 9 CMPB R eos. UAITING ; Make sure state = WAITING 
A 12 ae ! BNEQ INVALID _STATE ; It's not 
AAD 31 § DEQ_WAIT: 
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AA 1 : ; The Lock is on the waiting queue. Remove it from the queue and 
AA 1 3; see if it was at the head of the quays. If yes, then we aor be 
AA 1 § 3; able to grant some locks (ous ont f the conversion queue is empty). 
os } ; If no, then there is no possibility of granting some locks. 
51 3BA of AA 1 5 REMQUE LERSL.SOFL (RG) -RI ; Remove this lock 
1 3 QAAD 31 BEQL 8 ; Wait queue is now empty 
50 8A D AAF 31 MOVAL aanst EVTSPL ERO) RS ; See if we can grant any more locks 
50 6 9 ABS 31 § CMPL (RO) ,R : is conversion queue empty 
\§ AB 1 Q ; No = can't grant any other locks 
55 OCA A OAB 164 MOVZBL RSBSB_GGMODE(R8) ,R5 ; Yes, get group grant mode and 
449 ! rt ! é 188 — : ; Try granting some waiters 
AC 16 
vy 198 NOCDRP: ; Either insufficient memory or CSID conversion error. 
0124 8F 50 Bi OAC 196 CMPW 0 #SS$_INSFMEM ; Is it insufficient memory? 
01 Ne AC? 3171 BNEQ =: 13 : No 
0 ACS 176 ; Yes, return error to caller 
wre Ve 138: BUG_CHECK LOCKMGRERR,FATAL; CSID conversion error 
OACE 175 SNDDEQ_GRNT: 
; Need to send a message to master system. Lock is in 
ACE 317 Need d t t Lock is i 
Ate Mf ; granted state. 
00000000'GF 16 OACE 155 JSB G*LCKSSND_DEQGR : Send a dequeue message 
00A1 31 a3 1 ? 5$: BRW 60$ 
AD? 31 DEQ_CONVERT: 
mt 1 : bi ; The lock is on the conversion queue. Remove it from the queue and 
AD? 3184 3; see if it was at the head of the queue. no, we may be able to 
AD? 3185 3; grant some locks due to the granted mode of this Lock going away. 
AD? 31 § :; If yes, we may be able to grant some locks for the same reason 
4 ! . ; and for the additional reason of the head of the queue going away. 
38 C3 OAD? 3189 SUBL3 #LKBSL_SQFL.- 3; Save address of lock at the 
59 18 AB ADO 31 , RSBSL_CVTQFL(R8) ,RO 3; head of conversion queue 
51 38 A6é F OQADC 19 REMQUE LKBSL_SQFL(R6) Ri 3; Remove this lock 
“p 1 nee 13 CMPB LKBSB > GRMODE (RO) ,~ : Is lock mode PW or higher? 
8 1F QAES 3194 BLSSU 3; No, skip value block process ing 
54 oF 3 e 132 Uh, OL CKSM_INVVALBLK .Ré 3 shoule value block be invalidated? 
3 No 
A AEB 199 BISW #RSBSM YALINVLD - : Yes, invalidate value block 
OE A AED 31 8 RSBSW_STATUS (RBS 
CA D6 OAEF 319 INCL RBS VAL SEQMUMRS) : Increment value block sequence number 
59 $8 Di OAF 0 7$: CMPL R6,R ; Was it the first one on the queue? 
Ow Be Batt iw 
; No 
AF 
AF 4 DEQ_GRANTED: 
AF9 5 3; The lock is on the granted queue. Remove it from the queue ¥ 
AF9 § ; and see if it was the only one on the queue. If it yes then see L. 
AF ; if the conversion and wait queues are also empty. and if so then R 
AF 3 3; the resource block can be deallocated. This uation is special cased N 
AF9 ; because it is the normal case. If this lock is not the only one on the 0 
AF9 10 3 queue, then see if its granted mode is equal to the group grant mode. 0 
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1 ; If yes, we may be able to grant some locks if this lock (only) was 
1 ; responsible for the group grant mode. If no, then we can't 
1? 3; grant any more locks because the group grant mode won't change. 
1? ASSUME RSBSL_WTQFL EQ RSBSL_CVTOFL+8 
53 38 A 20 1H tty GOFL..CEEDIRS) -RS 3 Is resource managed by another system? 
ee 18 i§ JSB G*CNXSALLOC_CDRP : No, get one (and convert CSID to CSB) 
A 50 § 0 BLBC RO,N P 3; None available or CSID convert error 
5 AG O91 1 8$: CMPB  — LKBSB_GRMODE(R6),- : Is lock mode PW or higher? 
4 § é EKSK_PUMODE 
1F BLSSU 1 3; No, skip value block processing 
D5 4 TSTL OR : Value block specified 
= 5 BEQL 10$ 3; No 
AB 69 7D § MOVQ (R9) ,RSB$Q_VALBLK(R8) ; Yes, copy caller's value block to RSB 
30 AB 08 AS 7D MOVa 8(R9S,RSB$O_VALBLK+8(R8) 
CAB D6 B 8 INCL RSBS$L_VALSEQNUM(R8) 3: Increment value block sequence number 
O¢ AA BICW #RSBSA_VALINVLD,=- 3; Validate value block 
OE A 0 RSBSW_ STATUS (RBS 
54 os 3 5 pity #LEKSA_INVVALBLK RG i Should value block be invalidated? 
3 No 
3 A § BISW #RSBSM_VALINVLD,=- 3; Yes, invalidate value block 
OE A 9 4 RSBSW_STATUS (RBS 
CAB OD B 5 INCL RSBSL_VALSEQNUM(R8) 3; Increment value block sequence number 
20 Ag ° ; $ 128: itt LGSSLBLEASTADR (RO? 3 pioching AST address specified? 
3 No 
42 AmB 8B? 3 3 DECW RSBS$W_BLKASTCNT(R8) 3 Decr. blocking AST count 
53 5 é 40 15$: TSTL R3 ; Resource managed remotely? 
94 %2 41 BNEQ SNDDEQ_GRNT 3 Yes 
50 38 A6 OF A g REMQUE FEGSL_SOFL (RG) .RO ; Remove lock from granted queue 
20. =—12 3 4 BNEQ 45 :; Branch if queue not empty 
50 18 A8 ODE 44 MOVAL RSBSL_CVTQFL(R8),RO ; Get address of conversion queue 
$9 } 3 re cnet £89) RO 3 is conversion queue empty? 
4¢ + No 
50 08 6 9 4247 ADDL #8,RO ; Yes, get address of wait queue 
50 6 D1 C $3 CMPL (RO) RO : Is wait queue empty? 
05 12 f re BNEQ 35$ ; No, try granting waiters 
1 51 ; ALL queues are enpty: Deallocate RSB (as long as it's not 
! 26 : a directory entry). 
00D 3 1 BSbW CKSDEALLOC_RSB 
8 9 : 2 2¢ BRB rats = 3; Finish up 
38 3§ 35$: ; Try granting waiting locks 
3 38 ASSUME RSBSB_CGMODE £€Q RSBS$B_GGMODE+1 
0c 4 BS 38 a CLRW R5068 SGRODE (RS) ; Clear group and conversion grant mode 
D4 : $6 CLRL R ; Clear group grant mode in R 
FDBD | 4 40$: BSBW KSGRANTWTRS ; Try granting waiters 
gH a Bo: BY Ut 7 wring 
6 88 45$: 3; Determine if the lock dequeuved was equal to the conversion 


“ 
o 
had 


; Either we dequeved a lock equal to the conversion grant mode 
3; or we dequeued the head of the converson queue. Either way, 


; we must recompute the group grant mode. 
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6 $3 ; grant mode. If not, then no new locks can be granted. 
4 CMPB LKBSB_GRMODE(R6),- ; Is the granted mode qf this lock 
6 7? Sa aiaeaie ) ; equal to the conversion grant mode? 
6 f BNEQ 60$ ; No, don't bother going further 
8h 3554 
6 75 
8h 3509 
6 4 BSBW LCKSCOMP_GGMODE ; New group grant mode in R5 
OC A8 22 6 7 MOVB R Bhi ts Mad thy f ; Store in RSB 
OD A8& ° + MOVB -RSBSB_CGMODE (RB) ; Also store conversion grant mode 
FD5D : 1 BSBW LCK$GRANTCVTS 3; Try grensing conversions and waiters 
00A0 0 4 Ht 55$: BSBW LCKSCHECK_RSB ; Deallocate RSB, if necessary 
087 8 60$: ; Now finish cleaning up the Lock we orig net ty dequeued. 
5 4 85 ; First, decrement parent LKB's sub LKB reference count. 
50 48 A6 09 087 Ha MOVL LKBSL_PARENT(R6) ,RO ; Get parent LKB address 
05 13 087 se BEQL 65$ 3; No parent 
4C AO B7 087 8 DECW eaeeeteaberablimti ; Decrement parent's sub LKB ref. count 
49 19 pas + BLSS 5$ ; Ref. count went negative 
3 35 65$: ; Deallocate lock id 
50 30 A6 3C OBS 94 MOVZWL LKBSL_LKID(R6),RO ; Get lock id index 
51 00000000'GF DO 068 95 “LCKSGL_IDTBL,R1 ; *** Combine with next instr. 
51 6140 DE 088 sae MOVAL (R1)CROJ,R1 ; Point to table entry 
61 Q0000000'GF B80 O99 9 MOVW G*LCKSGL_NXTID,(R1) ; Store next id in this id's slot 
02 Al 32 A6 O01 Al O0B9 298 ADDW3 #1,LKBSLILKID+2(R6),2(R1) ; Incr. and store sequence number 
04 1C OB9F $28 BVC $ : Didn't overflow to a system address 
02 A 01 BO OBA1 00 MOVW #1,2(R1) ; Overflowed - restart seq. number at 1 
00000000'G 50 dO rear $6) 70$: MOVL RO,G*LCKS$GL_NXTID ; This id becomes the next one 
OBAC 308 :; If this lock is a master copy or system owned, then skip 
OBAC 3304 : following “Process | code and just deallocate LKB. Both of these 
i $02 3 conditions have a zero PID field in the LKB. 
OC A6- CDS AC $05 TSTL LE BSL _PIDCRG) 3; Is it either? 
5A 13 4 38 BEQL 7$ ; Yes 
0881 10 ; Remove LKB from owner's lock queue. If the lock was not 
1 11 3; granted yet, then complete the request (queue an AST and 
1 : Set event flag) with the status in R7. 
heat 14 ASSUME LKBSK_GRANTED EQ 1 
BB1 15 ASSUME LKBSK_CONVERT EQ 0 
: 16 ASSUME LKBSK_WAITING EQ -1 
50 40 A6 OF BB 1 \8 REMQUE LKBSL_OWNQFL(R6) ,RO 
36 ag SF 3 4? MAL KBSB_STATE(R6) 3 {s the lock granted? 
; Yes 
2C Ab 3? 08 A 1 pov R7 ,LKBSL_LKST1(R6) 3 . store specified status 
; Had one 
et 3¢ ch 4 MOVZWL S*#SS$_ABORT,- ; Use default status instead 
2c Ab C 4 LKBSL_CKST1(R6) 
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20 BA OBC4 5 738: BICB #LKBSM ROBELETE.@ ; Clear nodelete bit 
0B ag c6 § LKBSB_RMOD(R6) 
FAE 30 OBC BSBw QUEUE_AST 3; Queue AST and set geen flag; 
BCB § ; returns status on RO. Kernel AST 
cB 3; routine will delete LKB. 
05 44, ? RSB 
4 § 75$: BUG_CHECK LKBREFNEG, FATAL 
BD 4 80$: ; Increment the enqueue count and deallocate the LKB as lon 
BD 5 ; as it's not queued to deliver an AST. If it is queued, then 
D § ; if it's queued to deliver a copetes fen AST then let kernel AST 
BD ; routine delete the LKB. If it's only queued for a blocking 
eed 3 ; AST then remove it from the AST queue. 
2A A6 03 B83 OBDO 40 BITW #LKBSM_DCPLAST!- ;_Is the LKB queued for AST delivery? 
0BD4 41 LEBSA_DBLKAST -LKBSU_STATUS (R6) 
18 13 OBD4 1: BEQL 5$ ; No 
20 8A O0BD6 4 BICB #LKBSM_NODELETE,- 3; Yes, clear nodelete bit 
OB A6 0BD8 44 LKBS$B_RMOD(R6) 
AA OBDA 45 BICW #LKBSA_DBLKAST- ; Clear deliver blocking AST bit 
0BDB 4g 'LKBSM_CVTTOSYS,- 3; and convert to system owned bit 
2A AG «0102 BF OBD 4 LKB$W_ STATUS (R65 
EO OBE rts BBS #LKBSV_DCPLAST,- ; Branch if queued for a completion AST 
2F 2A Ab OBE 49 LKBSW_STATUS(R4),90$ : (will be deall. when AST is delivered) 
DO OBE 350 MOVL R6,R 3 Blocking AST only - remove from 
00000000'GF 16 OBE8 331 JSB G*S$CHSREMOVACB > AST queue 
pore 335 85$: ; Deallocate LKB and increment enqueue quota (if it was charged) 
20 B63 OBE $22 BITW #LKBSM_NOQUOTA,- ; Was enqueue quota charged? 
aH 1 BE aug, psa) 
; No 
54 QC A6 3C OBF4 $26 MOVZWL LKBSL_PID(R6) ,R4 ; Get process index 
50 00000000'GF DO OBF8 335 MOVL  G*SCHSGL_PCBVEC,RO : *e® Combine this and next inst. when 
OBF F 60 : PIC code is no Longer needed *** 
54 6044 D8 pore 61 MOVL (RO)CR4],R4 ; Convert to PCB address 
50° 0080 C4 »D C03 6¢ MOVL  PCBSL_JIB(R4) RO : Get address of JIB 
4C AO B6 0C08 6 INCW JIBSW7ENQCNT (RO) ; Increment enqueue count 
50 56 bd0 OC0B 64 87$: MOVL R ; Address of LKB 
00000000'GF 16 co 9? JSB G*EXESDEANONPAGED ; Deallocate it 
50 01 3C C14 $6 90$: MOVZWL S*#SS$_NORMAL ,RO 
05 C17 o8 RSB 
aR 
OC] 71 -DSABL LSB 
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-SBTTL LCKSCHECK_RSB = Deallocate RSB if necessary 


p++ 
3 FUNCTIONAL DESCRIPTION: 


This routine checks to see if all queues on a resource 
are empty. ei are, the resource can be deleted 
as long as it’ ." not needed to act as a directory entry. 


CALLING SEQUENCE: 
BSBW LCKSCHECK_RSB 
BSBW LCKSDEALLOC .RSB is an entry point to use if all three queues 
e known to be empty. 
IPL must “he at IPL$_SYNCH 


INPUT PARAMETERS: 


R8 Address of RSB 
OUTPUT PARAMETERS: 
None 


SIDE EFFECTS: 
RO - R5 are destroyed 

NOTES: 
If all ques are yety and the RSB is not a root RSB then it 
can be deleted is a root RSB then the situation is more 
complicated as "ss "38 ney still be needed to act as a directory 
entry. The following table summarizes what action must be taken. 


This is a directory entry 
(RSBSM_DIRENTRY = 1) 


' Yes H No 
eeeeece pew en eee eee eee eee poe ese wor ener ees 
' : Delete RSB 
This system Yes {i Delete RSB {| Send msg to 
is managing H ' directory system 
the resource oo --<-<-- poee eee wee eee ne pe mewoes tem ee meee 
{REBSL CSID = t Leave RSB ' 
0) No : as directory | Delete RSB 
! entry ‘ 


-ENABL LSB 


ASSUME RSBSL_CVTQFL EQ RSBSL ener ee 
ASSUME RSBSL-WTQFL EQ RSBSL_CVTOFL*+ 


LCKSCHECK_RSB: : 
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LCKSDEALLOC_RS 
; AT 


15$: 


20$: 


25$: 
35$: 


45$: 
55$: 


708: 


mow 


~SEP- 


RSBSL gear Se 
RO) ,R 


Queues are empty. 
:; directory system as appropriate (see above tab 


ASSUME RSBSL_HSHCHN EQ 0 
UME RSBSL-HSHCHNBK EQ RSBSL_HSHCHN+4 

ASSUME RSBSMDIRENTRY EQ 1 

RSBSW_REF CNT (RB) 


RSBSL_PARENT(R8) ,RO 


208 
eRSBSL_HSHCHNBK (RO) 


SSNDB_RMVDIR 


$U_REFCNT(RO) 


$L_HSHCHN(R8) 
RSB$L_HSHCHN( 


SDEANONPAGED 


RSBREFNZRO, FATAL 
RSBREFNEG FATAL 


ai 


BSL _HSHCHNBK (RO) 
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SYS.SRCJSYSENQDEQ.MAR; 1 (24) Tab 
Get address of granted queve 
Is granted queue empty? 


() 
Yes, get address of conversion queue 
a conversion queue empty? 

() 

Yes, get address of wait queue 
Me wait queue empty? 

° 


RSB and/or send pegeeae to 
e). 


; Have to send a remove directory 


RSBSL_HSHCHN(RB) ,RO 
RO, RSBSL_HSHCHN(R}) 


Verify there are no sub RSB's 
There are 

Get parent RSB address 

There is a parent 


Branch if this is not a dir. entry 

Is this system mana ing this resource? 
Yes - resource can be deleted 

This is a directory entry; don't delete 
Is this system managing the resource? 
No = Just delete resource 


entry message to directory system 


Get hash chain pointers in RO and R1 
Store next pointer in previous RSB or 
hash table 

Branch if no next one 


; Store previous pointer in next one 


Send remove directory entry message 


Decrement parent's sub RSB ref. count 

Ref. count went negative 

Get hash chain pointers in RO and R1 

Store next pointer in previous RSB or 

hash table 

Branch if no next one 

Store previous pointer in next one | 


; Deallocate RSB 
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-SBTTL STALL_REQ = Stall request during failover 


ot 
FUNCTIONAL DESCRIPTION: 
This routine stalls requests gurtng failover by puttin the 
rocess into MWAIT state wait ng for resource RSN$_CLUSTRAN. 
t is assumed that the fyquest 3 


has been performed as th 


s been backed up and all csoenup 
waits in the caller's mode. 


s routine backs up the service an 
The alternate entry point WAIT_FOR_POOL operates in the same 
way but waits for non-paged pool aS oppposed to a cluster transition. 


The alternate entry point LCKSCHECK_STALL includes a test to 
determine if we should stall. 


CALLING SEQUENCE: 


BRwW STALL_REQ 
BRW WAIT_FOR_POOL 


: NOTE: These routines do not return to the caller. Rather they back 
3 up the service and wait in the mode of the caller. When 

3 the resource becomes available, the service is re-executed. 

: JSB LCKSCHECK_STALL (Either returns to caller or backs up 

; system service call) 

: IPL must be at IPLS$_SYNCH 

: INPUT PARAMETERS: 

: None 

> IMPLICIT INPUTS: 


It is assumed that these routines are being called from the context 
of a system service and that FP has not been tinkered with. 


OUTPUT PARAMETERS: 

: None 

; SIDE EFFECTS: 

The service is backed out 


WAIT_FOR_POOL: 


POOOWOODOOVODOOOOOVOOOOIOIOIOIOIOIOOOOOOAOOOOODOAIOOAAOOAIOADAOAIOAIAAAIOAIOAAIAOOOOO wn 


SOOOOOOOSOOOOOOCOCOOCOOOCOOCOOOOOOOOOOOOOOOSOOOOCSOOOCOOOOOOOOCOOCOOCOSO I 


50 03 00 AOVL #RSNS_NPDYNMEM,RO ; Set resource to wait for 
oc 11 BRB WAIT_COM 
LCKSCHECK STALL:: 
00000000" ¢F 95 TSTB G*LCKSGB_STALLREQS 3 Are we stalling all requests? 
a; BLSS STALL_REG : Yes 
05 4 RSB 
41 STALL_REQ: 
50 OF »00 4 MOVL #RSNS$_CLUSTRAN,RO ; Set resource to wait for 
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¢ } 43 WAIT_COM: 
54 eaed ted 4 C 4 MOVL G*SCHSGL_CURPCB,R4 3 Sey our PCB address 
E D b C9A 45 MOVL FP,SP ; Trim stack back to start of frame 
5c | (08 AE C9D 46 MOVG 8(SP),AP : Restore pre-call AP arid FP 
5E ' CO OCAl 354 ADDL  S*#EXESC_CMSTKSZ,SP : Clean call frame off stack 
33 » -§ CAG ‘3 SUBL #4, (SP) ; Back up saved PC to point to CHMK 
00000000'GF 17 OCA7 354 MP G*SCHSRWAIT > Wait 


52 soseeese* ee 


52 


50 O0€12 8F 


00000000 *GF 


» ry dg 
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L = Extend lock able 8735p SYS.SRCISYSENQDEQ.MAR; 1 (26) 
~SBTTL LCKSEXTEND_IDTBL = Extend lock id. table 


ae 
FUNCTIONAL DESCRIPTION: 


This routine extends the lock id. table if it hasn't already 
reached it's maximum size. 


CALLING SEQUENCE: 
BSBW LCKSEXTEND_IDTBLW - To be called when in process context. 
If non-paged pool is not available 
the system serv $f will be backed out 
and the caller will wait. 
BSBW LCKSEXTEND_IDTBL = To be called when in fork context. 
This qty point will not wait for pool 
one weet nstead return an error to the 
caller. 
IPL must be at IPLS$_SYNCH 
INPUT PARAMETERS: 
RO Address of cleanup routine or 0 (LCKSEXTEND_IDTBLW only) 
IMPLICIT INPUTS: 


Various lock weneger epnety cells and SYSGEN parameters 
(LCKSGL_MAXID, LCKSGL_IDTBLSIZ, etc.) 


OUTPUT PARAMETERS: 
RO Completion code 
COMPLETION CODES: 


SS$_INSFMEM Insufficient non-paged pool 
S$S$_NOLOCKID Table has already been expanded to the maximum 


SIDE EFFECTS: 
R1 - R4 are destroyed 


DPUPVUPV IV PV IVIVIV IV IV IV IUSIVSIUIVIVSIVIVIUSUIUSVSIUSVSVSVSUSUSVSVSVSVSVSUIVIUSIUSUSVSUIIOSUSUIIIOIIIIIIN = OO 
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RF RAE ARO BO ee tet te eet RRP NBR ON RPS eR RE ey =—Cc 


-ENABL LSB 

HS $8: MOVZWL #SS$_NOLOCKID,RO ; Indicate error 
0 10$: RSB 

LCKSEXTEND_IDTBL:: 
% MOVAB GE XESALONONPAGED .R2 ; Address of allocate routine 
1 2 BRB 5 

LCKSEXTEND IDTBLW:: 
9E : MOVAB G*EXESALONPAGWAITS,R2 ; Address of allocate routine 

? $ 15$: ; Check that we haven't already exceeded the maximum table size 
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MOVL G*LCKSGL_MAXID,R : Get current Locgest lock id. 
cHPL R1,G*LCKSGL_ tO RUMAX ; Have we reached the the upper Limit? 
3; Yes, return SS 


ite # R1,R4 : Incr. and save or later 
; Compute new table size and allocate it from pool. 


new initialize new section of table by storing Linked List 
) 


UEUE 
EN 
cc3 
CCA 
a) 
a) 1 
cd 1 
tDy ela 
51 Q0000000'GF CO OCD 15 ADOL G*LCKSGL_IDTBLSIZ,R1 ; Add another increment to table size 
1 4 C6 coe 18 MULL #4,R1 : Convert to size in bytes 
1 f CE 1 ADDL nig. R1 : Add header 
§ CES 361 JSB (R25 : Allocate it 
C9 E ce6 BLBC RO,10$ 3; Insuff. memory 
334 1 ; Copy old table into new and deallocate old table. Registers contain: 
CE § : R1 Allocated size of new table 
CE9 36 3 Re Nddeaes of new table 
: maximum loc . + 
3 ° : Old i lock id 
6 CE9 36 PUSHR #*M<R1,R2,R4,R5> ; Save re 
55 eoeeeeedl f a cee ° § ef fle, “{CKSGL_ 1DTBL, RS ; roll ‘tin address of old table 
: n 
53 65 FE 8F 8 CF6 36 § ASHL a (R5),R3 ; Get size of old table in longwords 
82 3 09 CFB 3630 20S: OVL Se (R2)+ t Move old table entry to new table 
FA F CFE 3631 SOBGTR 3; Repeat 
51 60 pd 0001 36 j OVL tabs” ‘ : Get size of old table 
00000000" GF 16 0004 36 JSB GEXESDEANONPGDSIZ : Deallocate old table 
6 BA : "3 : : POPR #*A<R1,R2,R4,R5> ; Restore regs. 
DOC 36 § ; Set up header of new teble and pointers to it. Registers contain: 
poc 36 3 RI Size of e 
poc 36 3 3 R2 Address of table 
4 : 273 3 R4 Old maximum lock id. + 1 
62. 51 oO Opdc 41 VL R1,(R2) :; Store size in first longword 
8 AS B4 ODOF ¢g CLRW (Rg) 3; Clear old size in word size field 
02 A ; D 4 TSTw (R2) 3; Will size fit in a word? 
o D1 644 BNEQ 0O$ 3; No 
08 A2 1 8 D1 23? MOVW R1,8(R2) 3; Yes, store it in normal place 
00000000'GF 0c $i Dig 46 30$:  MOVAB 12(R2),G suf set fore : Store pointer to table 
00000000 ' GF D D rt MOVL R4 esi ees 3; Store next lock id. ge allocate 
C2 OD2A 48 SUBL #16,R1 ; Compute new max. lock id. (# of 
4 c 64 IVL 3s #4, R1 : entries in table - 1) 
50 =FFFF 8F C OD 650 MOVZWL eo tenre RO 3; Load - constant (65535) 
50 1 ot D 1 CMPL RO 3 Make sure we don't exceed 65535 
; D : BLEQU re bg ; We're okay 
i) DSA VL RO,R1 ; Set number of entries to exactly 65535 
eee ; all ct 1 D D5D 4 40S: OVL RY G*L bers L_MAXID 3; Set maximum lock id. 
C A264 «DE 0D44 MOVAL tere oR3 ; Point to first new entry 
38 D6 OD49 INCL 3; Increment next lock 
i 3; Change constant to 
0 D6 0D48 INCL Ro Ch tant to *x10000 
6 
66 
is 


FT" OO0Onou 


3 lock id. indicies and $e yence numbers. Registers contain: 
OD4D 3 RO Constant “Xx doc 
OD4D 3 R) Max imum 9c 
0D4D 3 R3 Address of first new entry 
0D4D 3 RG Next lock id. to store in table 
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- Extend aye table g- Het 4 §¢:98:18 YeYS. SRCISY SENQDEQ. MA 31 » (26) 
BISL RO,R4 3 Logically OR seq. num. with next id. 
50$: MOVL ace ; tore next ab bte entry 
INCW R4 3; Incr. next id. 
CMPW R4,R1 ; Compare with max. id 
BLEQ ; Repeat 
MOVL R tt i ; Store last entry 
MOVL $*#SS$_NORMAL RO ; Indicate success 
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-SBTTL FREE_LKB = Free LKB (from AST queue) 


LK 


4+ 

; FUNCTIONAL DESCRIPTION: 

This routine je p col hed to by an LKB that is currently 

queued as an A s should spepen Rpeas? but uren f B iste 

n ~ 8 ST iusented from pool on of the LKB . copied 
nto the new ACB and the two heBee aa avee ed on the AST q 

; This frees up the LKB for another use (such as a lock senuere on). 

; CALLING SEQUENCE: 


BSBW FREE_LKB 
(Note: IPL aust be at IPLS_ASTDEL or lower) 


; INPUT PARAMETERS: 


RG Address of PCB 
R6 Address of LKB 


; OUTPUT PARAMETERS: 
RO Completion Code (returned to ERROR_EXIT = not caller) 


; COMPLETION CODES: 


PAAAAAAAAAAAAAASAAAASAAAOSASAISAASSAASAS We 


a a et he 8 a 8 es tt a tt tk 


\~4-4-4-4-4-4-4 4 4 4 4 SO SOS 


cvcocoeo 
AAAS 


OOCOCoooooooooooooooooo 


tb 8 ss dt a tt a 4 2 


DVDR A AAPA AAA AAA AAA A OO 


Uw 1-4-4444 6 SS SSS SOS 


SS$_INSFMEM Insufficient memory 
SS$_-EXASTLM Exceeded AST quota 


; SIDE EFFECTS: 


The LKB is removed from the AST queue. Note that all registers 
(including RO and R1) must be preserved. 


; NOTES: 
This code makes two assumptions: 


1) That the LKB must be queued for a regular AST 
(as opposed to just a Ready kernel AST) This 
is why AST quota is always de eucteg i conditi onally 
on whether an AST address was specified 


° : 2) That the LKBSM DEPLAST and LKBSM_DBLKAST bits cannot 
§ ; become clear while ove are at IPL” Otherwise, it 

is necessar te verify that the LKB is still in use 
4 fter the ACB is ath ae from pool. This assumption 
5 s due to he fact staat the AST must either be for 
§ an outer mode - f for ok mode shen kernel mode 
| ASTs must be disabled. 
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1 4 FREE_LKB: 
F 5 PUSHR BcBSUCA R1,R Re R3,R4,R5> 
38 AG : TSTW STENT (RS ; Test for enough AST quota 
¢ BLEQ 3; Error = not e noup? 
3 4 7 MOVZWL rask ACBLEN,R1 3; Size of a to allocate 
0000 009" F 8 7 JSB G*EXESALLOCBUF ; Allocate ACB 
3 74 BLBC RO,9 3; Error - ” ineutt. memor 
OA A2 ! 4 374 MOVB #OYNSC_ACB,A case. TYPE (R2) ; Store data structure lope 
38 AG OB 8 374 DECW pgesu_AS TCNT ; Decrement AST quota 
743 108: SETIPL 9 ; Raise to IPL$_ YNCH and 
eee ; lock pages in memory 
; 74g ; If CVTTOSYS bit is set, then this LKB should be converted 
4 i ; to system owned. Do it now instead of in LOCK_KAST. 
08 €1 7 is BBC #LKBSV_CVTTOSYS,=- ; Branch if CVTTOSYS is clear 
06 2A A6 74 3750 LKBSW_STATUS (R65 ,208 
QOO001DB'GF 16 77 «+3751 JSB G*CV Y ; Convert to system owned 
AA 7D 37 § 20$: BICw #LKBSA_DBLKAST- ; Clear deliver blocking AST bit 
7E 375 'LKBSM_CVTTOSYS,-=- 3; and convert to system owned bit 
2A AG «0102 BF 7E 375% LKBSW_STATUS (R65 
¢¢ 3 755 PUSH ; Save ACB address 
62 66 4 8 7 § MOVC | naa ACBLEN, (R6), (R2) 3 Copy ACB portion of LKB 
52 8ED0 9 37 POPL R 3; Restore ACB address 
0B A2 40 8F ge Bf 7 8 BISB #ACBSM_QUOTA,ACB$B_RMOD(R2) : Set quota accounting flag 
OB A220 1 37 BICB § #ACBSM~NODE DELET TE,ACB$B_RMOD(R2) ; Clear nodelete fla 
0 As 33 760 BISW #LKBSM”-NOQUOTA ; Set NOQUOTA Abit so that 
2A A2 9 761 LKBSW_ STATUS (RS) 3 enqueue quota is col sredtend 
55 56 00 99 166 MOVL R 3; Address of LKB 
00000000'GF 16 029¢ 376 JSB G*SCHSSWAPACBS > Swap ACBs 
3F BA A 764 POPR M<RO,R1,R2,R3,R4,R5> 
Ag 3765 SETIPL FIPLS. ASTOEL” : Lower IPL 
05 - roe RSB 
50 ga0s 8F 3C A res gos: MOVZWL #SS$_EXASTLM,RO 
00000543'EF 17 A 169 0$:  JMP ERROR_EXIT_RO 
00000008 B 771 95$: . LONG $_ SYNCH 3; End of locked down code 
B 772 ASSUME Pos LE 512 3; Must be on adjoining pages 
B? 3775 
B? 3774 
775 


~ END 
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Symbol table ets Pi §¢:93:18 YOYS SRCISYSENQDEG_MAR; 1 . (33, 
ACB$B_RMOD = B IPL$_ASTDEL s 

ACB$B_ TYPE : A IPL$" SYNCH = § 
ACBSM_NODELETE = 8 JIB$Q_ENQCNT = 

ACBSM_QUOTA = LCKSCANCEL_C RG 

Cv16 5 g 03 Rittittie $ Ci8 RG 

CMODE = ; LCKSCHECK STALL RG 
ASTADR s LEK SCORPAT T 0 RG 
ASTPRM * § LCKSCOMP_GGMODE AF RG 
BLKAST = LCKSCVTNOTQE 94 RG 
BUGS$_DEQSUBLCKS eeeeeeee =X 3 LCKSCVT_GRAN 16B RG 
BUGS_LKBREFNEG eeeeeree =X LCKSDEACLO C31 RG 
BUGS_LOCKMGRERR eeeeeeee =X LEK SDE aL OF nee RG 
BUGS_RSBREF NEG eereeeee =X LCKSEXTEN CB3 RG 
BUGS _RSBREFNZRO eeereeee =X LCKSEXTEN OOOOCBC RG 
CAS_MEASURE = 0000 002 LCK$GB_HTBCSHF ateeeeee 8 6X 
CALC_BLK_SUBR Boe SF R 8 LCKS$GB_MA eeeeeeee =X 
ANCEL O000A43 R LCK$GB_ST aeeneeer 
CANCELGRANT OOO0A3D R LCKSGL-DIRVEC eeeneene =X 
LEANUP1 B88 2% R LCKSGL-HA eereeeee = X 0 
CLEANUP 0 : Re 0 LCKSGL_IDTBL eeeeeeee =X 0 
CLEANUP Ed R 0 LCK$GL_IDTBLMAX aeeneeee =X 0 
CLEANUPS QO0O0058E R 0 LCKSGL_IDTBLS1Z eeneeeee =X 0 
CNXSALLOC_CDRP eerereee XK 0 LCKSGL_MAXID eeeeneee =X 0 
CONVERSION 00000088 8 0 LCKSGL_NXTID eeeeneee =X 0 
CVT_TO_PRC 00000208 R 0 LCKS$GL_TIMOUTQ eeeeeree = X 0 
CVvT_TO_SYS BO 888 ce R 0 LCKSGL-WAITTIME aeeeeeee§ =X 0 
CVT-TO-SYS_INT 000 9106 eg 0 LCKSGRANTCVTS 000008D2 RG 0 
DEPTH_ERROR Ht R 0 LCKSGRANTWTRS 0000918 RG 02 
DEQ_ACMODE = B00006 LCK$GRANT_LO Bo 8808 RG 0 
DEQ_ALL 0000174 R 03 LCKSGRANT_LOCK_ALT 0000610 RG 0 
DEQ” CONVERT 8008 ner R O LCKSGRANT_REM tet Eb RG 0 
DEQ_EXIT it 15E R 0 LCKSHASH SEARCH 0 38 9C RG 02 
DEQ" FLAGS = 0 01 LCK$K_CRAODE = 00000001 
DEQ” GRANTED : OOAF9 R 08 LCKSK_CWMODE = 000 OONe 

Q- WAIT AAD R 0 LCK$K_EXMODE = $ : 
DYNSC_ACB = 000000 ¢ LCK$K_NLMODE = 9 
DYNSC_LKB = 00 3 LCKS$K_PRMODE = 00 0 
DYNSC_RSB = 8 6 LCKSK-PWMODE = 00 oe 

FN = 2 4 LCKSLOCAL_CVT 10F RG 08 
ERROR_EXIT_RO 4 43. R 0 LCK$LOCAL LOCK rad RG 0 
ERROR’ EXIT"R11 0000540 R 0 LCKSM_CANTEL = 0000 
EXESACLOCBOF eeeeeeee =X LCKSM_CONVERT = 0 
EXESALONONPAGED eteeeeee =X LCKSM_CVTSYS = 4 
EXESALONPAGWAIT eeeeeeee =X LCKSM_INVVALBLK = 4 
EXESALONPAGWAITS tereeeee =X LCKSM_NOQUEU = 4 
EXESC_CMSTKSZ eereeeee =X LEK SA_NOQUOT 2 

EXESDEANONPAGED eereeeee =X LCKSM_PROTECT = 000001 
EXESDEANONPGDS1Z eeeeeere =X LCKSM_-RECOVER 2 3 

EXESDEQ 944 RG LCKSM_SYNCSTS = 

EXESENQ OOE RG Lek Sh SYSTEM z 1 % 
EXESGL_ABSTIM eereeeee =X ; LCKSNORET_VALBLK FB RG 

£ VESMARACMODE eeeeeeee = § Xx LCKSNOT_QOEUVED 30D RG 

FLAGS = 9 9 LCKSQUEDECVT AE RG 

FREE _LKB R 3 LCKSQUEUED_EXIT 4-8 RG 
iSeter sit" meeeeves x $8 PERROUEUR EELS Ab he 
JOC$GL—SRPSIZE eeeeeeee =X LCKSQUEUVE-BLOCKAST 85 RG 
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LCKSQUEUE_REM 
LCKSREGRANTLOCK 
LCKSR ALBLK 


“ASYNC 
LKBSM~BLKASTQED 
LKBSM~CVTTOSYS 
LKBSM~DBLKAST 
LKBSM~DCPLAST 
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RRERKREE 
RRERKERE 
ReRRRRRE 
PAR SAS SS 
ReRRKkee 
RARRAEKE 
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NEW_COCK 
NEW RESOURCE 
OLD_RESOURCE 
PAR 


PMS$GL-ENQNOTOD 
PMSS$GL-ENQWAIT 
POOL _MASK 
PR$_TPL 
PRIS_RESAVL 
PRV VaSYSLCK 

S 


P 
PSL$S_PRVMOD 
PSLSV_PRVMOD 
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REeeeeee 
Reeeeene 
Reeeeere 
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QUEUE_A 

QUEUE -BLKAST 
QUEUE - COMMON 
REL CHT ERROR 
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RESNAM 

RSBS$B_CGMODE 
RSBSB_DEPTH 
Reese GGMODE 


RSB$B_RSNLEN 
RSBSB 


DWOPAOCOMOIWUMWD MOM—WLN ~< x 


cece CMM NYNNVNYNKHYNYNYNNON 
AMODOOM OO — MN OWOOM—— 


R NAM 

RoBSU" CBLKASTCNT 
RSBSW_ 

RSBSW_ “HASHVAL 
RSBSW_ NT 


— 
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SCHSCLREFR eeeeeene 
SCHSGETEFC geeeeere 
SCHS$GL_CURPCB terrane 
SCH$GL_PCBVEC eeeeeene 
SCHSPOSTEF eeeeeeee 
SCHSQAST eeeeeeee 
iaecaree eeeeeeee 
eeeeenee 
SCHSSWAPACBS peoecees 
SNDDEQ_GRNT ER 
SNDDEQ™ walt Sr 
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: Psect synopsis ! 
tween e ee eeane eoeae $ 
PSECT name Allocation PSECT No. Attributes 
- ABS . 6° 44 ( a 90 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 0000000 ) 1 -) NOPIC USR CON ABS LCL NOSHR EXE’ RD WRT NOVEC BYTE 
LOCKMGR 0000D61 ¢ 38 ) 8S ( ¢°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
YSEXEPAGED 0000287 (¢ 695.) ( -) NOPIC USR CON REL’ LCL NOSHR WRT NOVEC BYTE 
tomar wrewraemamnenecocem meme o 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization ¢9 00:00:00. g 00:00:01.15 
Command processing 107 B08. 50. 00:00:03.75 
Pass 1 493 38:6 :20. § 00:00:58.45 
Symbol table sort 4 0:00: 5-3 00:00:06.45 
Pass 408 00:00:08. 9 00:00: 8 -6¢ 
Symbol table output 1 09:00:00. 00:00:00.4 
Psect synopsis output 0 00:90:00. 3 00:00:00.02 
Cross-reference output 0 ea Be Set Be oa 4 
Assembler run totals 1044 00:00:31.69 00:01:36.86 


The working set Limit was 2100 pages. 

125025 bytes (245 pages) of virtual memory were used to buffer the intermediate code. 

There were 90 pages of symbol table space allocated to hold 1421 non-local and 220 local symbols. 
source Lines were read in Pass 1, produc ing 35 object records in Pass 2. 

0 pages of virtual memory were used to define 29 macros. 
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+ 
H Macro Library statistics ! 


SMe ewe on mn manwme nn m ecm owe > + 


Macros defined 


Macro Library name 


.$255$DUA28: CSYS.OBJIJLIB.MLB; 1 17 
$255$DUA28: CSYSLIBISTARLET.MLB;2 9 
TOTALS (all Libraries) 26 


1443 GETS were required to define 26 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SYSENQDEQ/OBJ=O0BJ$:SYSENQDEQ MSRC$:SYSENQDEQ/UPDATE=(ENH$: SYSENQDEQ) +EXECML$/LIB 
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